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Excuses... 

In verband met ziekte en vakantie 
is de aflevering Graphics op de 64, 
die voor dit nummer gepland was, 
naar nummer 7 verschoven. 

De serie Beeldmanipulaties hopen 
we in dat nummer ook weer op te 
pakken met een extra lange afle¬ 
vering. 

De redactie 


Redactioneel 

‘Voor het najaar staan bij Commodore 
weer heel wat op stapel. Traditioneel zien 
de de naam Commodore in het voetbalsei¬ 
zoen wat vaker, omdat men heel wat aan 
sportsponsoring doet. Maar ook qua mar¬ 
keting zien we nieuwe initiatieven, al gaat 
het op dit moment vooral om het positione¬ 
ren van de Commodore PC lijn. Men han¬ 
teert duidelijk het prijswapen en gebruikt 
afzetkanalen als de Macro om grote aantal¬ 
len weg te zetten. De organieke dealers van 
CBM zijn daar niet zo erg blij mee en we 
vinden dat men daarmee uit de hoek van de 
A-merken wegloopt. En dat hoeft toch niet. 
de Commodore PC' s en we hebben er on¬ 
dertussen heel wat getest, doen kwalitatief 
niet onder voor de A- merken. 

De oude trouwe C-64 schijnt ook van Com¬ 
modore zelf steeds minder aandacht te krij¬ 
gen en voor de Amiga mikt men ook steeds 
hoger. Net is er een werkende 68030 Ami¬ 
ga, of er wordt al weer gesproken over de 
68040 als de nieuwe motor, waarschijnlijk 
van wat dan de Amiga 4000 gaat heten. 
Maar logica heeft weinig met de naamge¬ 
ving van de computers te maken, dus mis¬ 
schien wordt het gewoon de Amiga 3500. 
Met steeds meer power blijft de Amiga de 
beste machine om aan desktop video te 
doen. Helaas zien we qua horizontale toe¬ 
passingen, dus gewoon boekhouden, tekst¬ 
verwerking en database niet zo erg veel 
vernieuwing. De Amiga schuift op deze ma¬ 
nier naar de hoek van de creatieve specia¬ 
listen en de spelfanaten, dat is misschien 
jammer. Aan de andere kant, er is alles 
voor nog krachtiger hardware, wanneer je 
real-tirne video wilt doen. De krachtigste 
Amiga’s worden nu gebruikt voor interes¬ 
sante en revolutionaire toepassingen als 
‘Virtual Reality ', en ook de combinatie met 
CD-ROM in de CDTV-Amiga belooft veel. 
Commodore Info blijft u op de hoogte hou¬ 
den, al voelen we ons steeds meer balance¬ 
ren tussen de wensen van onze C-64 en 
Amiga lezers. 

Luc Sala 


Abonnement: 

Tot het einde van het jaar (2 nummers): 
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Betaling op giro 4985259 (België: BBL nr. 
310050602562) t.n.v. SAC/Commodore-Info. 
Oude nummers kunt u alleen krijgen bij voor¬ 
uitbetaling van ƒ 6,75 op de bovenstaande re¬ 
kening. 

Ook telefonisch bestellen is mogelijk. Bel 
GRATIS 06-02242222 (teleservice) elke dag 
van 20.20 uur (dus ook in het weekend). Bel¬ 
gië: 115555, dagelijks tot 22.00 uur. Deze 
nummers zijn allen bedoeld voor de opgave 
van nieuwe abonnementen. 

Opzegging dient schriftelijk te geschieden ui- 
terlijk twee maanden voor de aanvang van een 
nieuwe abonnementsperiode van een jaar. 
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GEOSINFO 



N a een reis van zo’n 7 
maanden door het 
Caraïbisch gebied 
ben ik weer achter mijn PC 
gekropen om u op de hoogte 
te brengen van wat GEOS 
noviteiten en tips. Ik heb re¬ 
gelmatig de Commodore Info 
aan boord van ons schip mo¬ 
gen ontvangen en ik heb daa¬ 
rin gelezen dat Peter Boncz 
mijn taak als redacteur van de 
GEOS Info rubriek op een 
zeer goede wijze heeft waar¬ 
genomen. Hiervoor wil ik 
hem nog hartelijk bedanken. 

Ook heeft de Stichting GEOS 
gebruikers uit Almere be¬ 
hoorlijke bijdragen geleverd 
ten behoeve van de GEOS 
gebruikers, u dus! Tijdens 
mijn omzwervingen ben ik 
hier en daar wat nieuwe din¬ 
gen met betrekking tot GEOS 
tegengekomen, die ik u niet 
wil onthouden. 

Nieuwe GEOS 
diskette van Run 

Terwijl ik in Fort Lauderdale 
(Florida) langs verschillende 
shops wandelde, viel mijn 
oog op een artikel over de 
nieuwste GEOS- diskette, die 
weliswaar niet door Berkeley 
Softworks wordt uitgegeven, 
maar door Run Magazine. 
Dit blad is zeer actief op het 
gebied van GEOS, hetgeen 
resulteert in het regelmatig 
uitbrengen van diskettes met 
allerlei nieuwe applicaties en 
Utilities werkend onder het 
GEOS besturingssysteem. 
Recentelijk brachten zij weer 
een nieuwe diskette uit, de 
derde in de reeks en wel ‘The 
GEOS Companion’-diskette. 
Deze collectie van creatieve 
GEOS gereedschappen bevat 
programma’s voor muziek. 


animatie, spelletjes, clip-art 
en Utilities. Men beweert 
zelfs dat deze diskette één 
van de beste GEOS accessoi¬ 
res is die ooit is uitgebracht. 
Inmiddels heb ik de diskette 
besteld en aan een nader on¬ 
derzoek onderworpen. 

G.O Bach 

De diskette, die ook nu weer 
als dubbelzijdige 5 disk 
wordt geleverd, bevat hoofd¬ 
zakelijk programma’s die de 
creativiteit van de gebruiker 
inspireren. Zo treft men als 
eerste een music-composer 
onder de naam G.O. Bach 
aan, een electronische music 
synthesizer, waarmee eigen 
composities en interessante 
sound-effecten kunnen wor¬ 
den gegenereerd. Nu zult u 
zeggen: ‘Er bestaan toch ze¬ 
ker al genoeg music-compo¬ 
ser programma's?’ Maar 
G.O. Bach onderscheidt zich 
toch enigzins van de regulie¬ 
re muziekprogramma’s voor 
de Commodore 64. 

Het programma bestaat uit 3 
ontwerp-schermen, allemaal 
met de gebruikelijke GEOS 
scherm lay-out. Het program¬ 
ma wordt, zoals alle pro¬ 
gramma’s op deze diskette, 
geleverd in een 40-koloms en 
80 koloms (C128)-versie. De 
schermen hebben allen een 
professioneel uiterlijk, met 
schuifregelaars en schake- 


Figuur 1 

laars die omgezet kunnen 
worden. Het werken met de 
G.O. Bach vereist wel enige 
kennis van muziek compone¬ 
ren, maar de handleiding legt 
in ieder geval duidelijk uit 
hoe het programma gebruikt 
moet worden. Mijn mening is 
dat deze music-composer be¬ 
tere resultaten geeft als de 
eerdere music-composers op 
de Commodore 64. 

GeoMusicPlayer 

Op deze diskette staat nog 
een applicatie, die direct met 
de hiervoor besproken G.O. 
Bach te maken heeft, en wel 
GeoMusicPlayer. Deze ap¬ 
plicatie is speciaal ontwik¬ 
keld om composities, die zijn 
gemaakt met G.O. Bach, af te 
kunnen spelen. Als men het 
programma heeft opgestart, 
verschijnt een bedieningspa¬ 
neel van een CD-speler. U 
kunt dan een file, die is ge¬ 
maakt met G.O. Bach inladen 
en laten afspelen. Alles zit er 
op, pauzestand en versneld 
vooruit en achteruit spoelen. 

Spellen 

Verder bevat de GEOS Com- 
panion diskette een tweetal 
spelletjes, op zich niet zo 
uniek, maar toch de moeite 
waard. De eerste is het spel 
Decode!, een MasterMind 
achtig spelletje, waarbij u de 
code moet doorbreken. De 


moeilijkheidsgraad is door u 
zelf te bepalen. Netjes uitge¬ 
voerd in kleuren en met een 
muziekje op de achtergrond. 
Het tweede spel is een verbe¬ 
terde versie van Breakout, al¬ 
leen deze is in een drie-di- 
mensionale versie. Het ver¬ 
eist wel enige behendigheid 
om dit spel te spelen, omdat 
het balletje een natuurlijke 
beweging maakt en daardoor 
vrolijk in het rond stuitert. Bij 
5000 punten krijgt u een ex¬ 
tra bal, terwijl elk blok wat 
wordt weggetikt 100 punten 
oplevert. 

GeoAnimator 

Verreweg de mooiste appli¬ 
catie op deze diskette is wel 
het programma GeoAnima¬ 
tor. Deze applicatie stelt u in 
staat om stand-alone anima¬ 
ties te maken, die zowel 
draaien onder GEOS 64 als 
wel onder GEOS 128. U 
maakt een animatie door een 
tekening te maken in Geo- 
Paint en deze naar een foto¬ 
album te copiëren. Met Ge- 
oWrite schrijft u het script 
voor de animatie. Hierbij 
maakt u gebruik van de in de 
handleiding vermelde gra- 
phics instructies. Eigenlijk 
zijn deze instructies een soort 
programmeertaaltje op zich. 
Het script dat door het pro¬ 
gramma wordt gebruikt 
bouwt in feite de animatie op 
uit een aantal commando’s, 
die soms een of meer argu¬ 
menten nodig hebben. Een 
duidelijke uitleg in de hand¬ 
leiding begint met het verkla¬ 
ren hoe de graphics in GEOS 
zijn geregeld. Indien u erva¬ 
ren bent met Basic program¬ 
meren, dan heeft dit pro¬ 
gramma geen geheimen voor 
u en kunt u gelijk aan de slag. 
Hiermee bedoel ik niet dat 
onervaren programmeurs het 
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programma niet kunnen ge¬ 
bruiken. Het programma is 
zeer gebruikersvriendelijk en 
het resultaat is verbluffend. 
Bewegende plaatjes op uw 
scherm, met de resolutie, zo¬ 
als u van GEOS gewend 
bent. En om het geheel te 
completeren, kunt u ook nog 
een muziekje op de achter¬ 
grond laten horen, die is ver¬ 
vaardigd met G.O. Bach. 
Kortom een compleet editor- 
systeem voor animaties in 
GEOS. 

Utilities 

Naast deze vier forse applica¬ 
ties bevat de diskette nog een 
aantal nuttige GEOS Utilities, 
zoals een nieuwe versie van 
de Pattem Editor, die nu ook 
geschikt is voor de 128-ver- 
sie. Verder een applicatie Fi- 
leMerge, waarmee GeoWrite 
files aan elkaar gekoppeld 
kunnen worden. Voor de 
1581 diskdrive gebruikers is 
de applicatie 1581 Boot-Disk 
maker een uitkomst. Het pro¬ 
gramma creeërt bootable 
1581-format diskettes. Het 
programma schrijft zijn eigen 
GEOS en GEOS Boot files 
naar de diskette en copieert 
tevens de GEOS Kernal van 
uw bestaande diskette. Het 
laatste programma is de ap¬ 
plicatie Batch Copier, waar¬ 
mee u een lijst van te copië- 
ren bestanden kunt opgeven. 
En als laatste bevat deze dis¬ 
kette weer een aantal nieuwe 
letterfonts en clip-art, welke 
zijn vervaardigd door Susan 
Lamb, inmiddels een feno¬ 
meen op het gebied van 
GEOS-applicaties. De dis¬ 
kette is verkrijgbaar bij de re¬ 
dactie van Run Magazine uit 
Amerika en kost met ver¬ 
zendkosten zo’n $ 29,00, wat 
neer komt op een 55 gulden 
(bij de huidige koers). Wilt u 
meer informatie stuur dan 
een briefje naar IDG Com¬ 
munications, 80 Elm Street, 
Peterborough, NH 03458, 
USA. 

Meer nieuws 

Dat in Amerika meer wordt 
gedaan met het besturings¬ 
systeem GEOS is inmiddels 


wel duidelijk. Terwijl in ons 
land Commodore 64 en 
GEOS dreigen te verdwijnen 
in de kelderkast, worden in 
Amerika nog steeds novitei¬ 
ten voor deze vertrouwde 8- 
bit computer ontwikkeld. 
Met name op het gebied van 
GEOS zijn er weer een twee¬ 
tal goed bruikbare dingen bij 
gekomen. 


GeoBasic 

Ja u leest het goed, GeoBasic. 
Net wanneer de meesten on¬ 
der u misschien dachten dat 
het afgelopen zou zijn met 
ontwikkelingen onder het 
GEOS besturingssysteem 
komt men weer met iets 
nieuws. Nou ja, nieuw is het 
niet. Al vaker werd in met 
name Amerikaanse software 
magazines geadverteerd met 



GeoRam 512 

Voor een ieder die altijd al 
vond dat een GEOS scherm 
er te lang over deed, voordat 
het weer zichtbaar was op de 
monitor of dat een applicatie 
er te lang over deed om gela¬ 
den te worden, is er dan ein¬ 
delijk goed nieuws. Berkeley 
Softworks is dan eindelijk 
met de RAM expansie, van 
maar liefst 512 Kb, op de 
markt gekomen. 

Zeker gezien de schaarste 
van Commodore RAM-ex- 
pansie units is dit een welko¬ 
me oplossing. De snelheid 
waarmee uw GEOS pro¬ 
gramma’s nu werken is maar 
liefst 35 maal sneller dan een 
1541, 1571 of 1581 diskdri¬ 
ve, De GeoRam expansie 
card wordt tevens geleverd 
met een upgrade van GEOS 
2.0, die geschikt is voor ge¬ 
bruik op de 64 en 128. Helaas 
is deze card nog niet in Ne¬ 
derland te koop en in Ameri¬ 
ka alleen rechtstreeks bij 
Berkeley Softworks voor een 
prijs van $ 129,90. 


Figuur 2 

GeoBasic. Alleen werd dit 
pakket nooit geleverd. Een 
alternatief was dan meestal 
Becker Basic van Abacus. 
Maar ook hierover heb ik in 
het verleden weinig gehoord. 
Nu is het mogelijk om een 
point-en-klik besturing aan 
uw eigen basic programma’s 
te geven. Door Berkeley 
Softworks ontwikkeld en 
door Run magazine gedistri¬ 
bueerd, komt GeoBasic voor 
een prijs van $ 39,95 op de 
markt. Het is de langver¬ 
wachte high level program¬ 
meertaal voor de C64/C128 
GEOS-gebruiker. Met Geo¬ 
Basic, dat meer dan 100 nieu¬ 
we opdrachten kent, kunt u al 
uw programma’s voorzien 
van het professionele uiter¬ 
lijk en gevoel, zoals pull¬ 
down menu’s, iconen, dia¬ 
loogvensters en veel meer. 
Het programma bestaat uit 
maar liefst 5 editors, een 
menu-editor, een bitmap-edi- 
tor, een editor voor iconen en 
dialoogvensters en natuurlijk 
een sprite-editor. Het pro¬ 
gramma wordt geleverd met 
verschillende voorbeeld-pro- 
gramma’s, zodat u gelijk aan 


de slag kunt. Wilt u meer in¬ 
formatie, schrijf dan een 
briefje naar Run magazine. 
Het adres staat eerder in deze 
GEOS-Info. 

Van Basic naar 
GeoWrite 

En alvast vooruitlopend op 
een mogelijke aanschaf van 
GeoBasic kunt u met onder¬ 
staande listing en bijbehoren¬ 
de beschrijving uw Basic 2.0 
of 7.0 listing converteren 
naar GeoWrite. Laadt eerst 
uw Basic programma en voer 
dan de volgende opdrachten 
in de zogenaamde direct-mo- 
des in: 

open 2,8,2, 

"O:bestandsnaam,S,W" 
CMD 2:LIST: 

PRINT#2:CLOSE2 

Nadat het lampje van de disk¬ 
drive uit is, staat het pro¬ 
gramma op diskette. Start nu 
GEOS op en laadt het pro¬ 
gramma TextGrabber. U se¬ 
lecteert, afhankelijk van het 
gebruikte systeem, Cl28 Ge- 
nericll of C64 GenericII. 
Vervolgens voert u een file¬ 
naam in voor het bestand. 
Plaats een diskette in de drive 
en de TextGrabber conver¬ 
teert de file naar GeoWrite 
formaat. 

Bert Venema 
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TIPS & TRUCS 64 


T erwijl u heerlijk lag te 
bakken in de Spaanse 
zon aan de Costa del 
Sol, had uw Commodore 64 
eindelijk rust. Veilig lag hij 
in een donker hoekje in de 
kast, na een jaar lang afge¬ 
ranseld te zijn door wanhopi¬ 
ge programmeurs en geflipte 
video game freaks. Maar nu 
de vakantie voorbij is, wordt 
zijn rust ruw verstoord, want 
het is weer tijd voor Tips & 
Trucs. 

Bij het aanslaan van sommi¬ 
ge toetsen verschijnen er ka¬ 
rakters op het scherm, bij an¬ 
dere toetsen verandert de po¬ 
sitie van de cursor en bij weer 
andere toetsen verandert de 
kleur van de cursor. Om bij 
elke toetsaanslag de juiste 
handeling uit te voeren, is er 
een programma nodig, dat de 
invoer van het toetsenbord 
analyseert en op grond van de 
uitkomst van de analyse een 
bepaalde handeling uitvoert. 
Dit programma wordt de 
screen editor genoemd. De 
screen editor bevindt zich in 
het operating system van de 
Commodore 64. 

Om correct te kunnen func¬ 
tioneren, moet de screen edi¬ 
tor een aantal verschillende 
zaken bijhouden. Een aantal 
van deze zaken staan hieron¬ 
der opgesomd: 

-positie van de cursor 
-kleur van de cursor 
-knipperen van de cursor 
-repeteren van bepaalde toet¬ 
sen 

-editor modes 

Over de eerste vier punten 
hebben we het in een eerdere 
aflevering van Tips & Trucs 
64' al gehad. In deze afleve¬ 


ring willen we aandacht be¬ 
steden aan het laatste punt, de 
editor modes. 

De screen editor kan zich in 
een aantal verschillende mo¬ 
des (toestanden) bevinden. 
Deze modes zijn: quote 
mode, insert mode en reverse 
mode. Voor elk van deze mo¬ 
des is er een adres beschik¬ 
baar, waarin wordt bijgehou¬ 
den of de editor zich al dan 
niet in die mode bevindt. 
Hieronder zullen we het 
adres van elke editor mode 
geven met een beschrijving 
van de mode. 

212: Quote mode 

Als adres 212 een waarde on¬ 
gelijk aan 0 bevat, dan be¬ 
vindt de screen editor zich in 
de quote mode. De quote 
mode kan worden aangescha¬ 
keld door het quote-teken (") 
in te tikken. 

Bij de aanslag van een aantal 
toetsen, zoals de cursor- en 
de HOME-toets, wordt er 
normaal geen karakter afge¬ 
drukt, maar wordt de positie 
van de cursor veranderd. Als 
de screen editor zich echter in 
de quote mode bevindt, dan 
wordt er bij de aanslag van 
deze toetsen wel een karakter 
afgedrukt en wordt de hande¬ 
ling. zoals het verplaatsen 
van de cursor, niet uitge¬ 
voerd. Een uitzondering hie¬ 
rop is de DELETE-toets. 
Deze toets blijft in de quote 
mode gewoon functioneren. 
De quote mode kan worden 
uitgeschakeld door nog een 
keer het quote-teken in te tik¬ 
ken of door het aanslaan van 
de RETURN-toets. 

216: Insert mode 

Een waarde groter dan 0 
geeft aan dat de screen editor 
zich in de insert mode be¬ 


vindt. De insert mode wordt 
aangezet door op de INST- 
toets te drukken. Elke keer 
dat op de INST-toets wordt 
gedrukt, wordt de waarde in 
adres 216 verhoogd. Deze 
waarde is dus gelijk aan het 
aantal karakters dat nog inge¬ 
voegd kan worden. 

De screen editor werkt in in¬ 
sert mode net zoals in quote 
mode met het verschil dat de 
DELETE-toets ook niet meer 
functioneert. 

Bij het aanslaan van een toets 
anders dan de INST-toets, 
wordt de waarde van adres 
216 met 1 verlaagd. De insert 
mode wordt dus uitgescha¬ 
keld als er genoeg karakters 
zijn ingevoegd. Ook wordt de 
insert mode uitgeschakeld bij 
het aanslaan van de RE¬ 
TURN-toets. 

199: Reverse mode 

Een waarde ongelijk aan 0 
betekent dat de screen editor 
zich in de reverse mode be¬ 
vindt. Door tegelijkertijd de 
CTRL-toets en de 9-toets 
(RVS ON) in te drukken 
wordt de editor in reverse 
mode gebracht. 

In reverse mode wordt elk 
karakter dia-negatief afge- 
beeld. 

De reverse mode kan weer 
worden uitgezet door de 
CTRL-toets en de 0-toets 
(RVS OFF) in te drukken of 
door op de RETURN-toets te 
drukken. 

Soms is het handig om de 
verschillende editor modes 
uit te kunnen schakelen, zon¬ 
der dat er iets op het scherm 
gebeurt, doordat u de quote - 
of RETURN-toets moet in¬ 
drukken. U wilt bijvoorbeeld 
de insert mode uitschakelen, 
omdat u de DELETE-toets 
wilt gebruiken. Het volgende 


programma stelt u in staat om 
de drie verschillende editor 
modes uit te schakelen door 
tegelijkertijd op de CTRL- 
toets en de F1-toets te druk¬ 
ken. Het programma is een 
machinetaal programma dat 
in de interrupt routine loopt. 
Zodra het programma ziet dat 
de CTRL- en de F1-toets zijn 
ingedrukt, wordt de waarde 0 
in elk van drie adressen voor 
de editor modes gezet, waar¬ 
door deze modes worden uit¬ 
gezet. 

5 rem uitschakelen 
editor modes 
10 for i= 49152 to 
49188 

20 read a:s=s+a:poke 
i, a 

30 next 

40 if s=4503 then 
sys 49152:end 
50 print"fout in 
data!" 

400 data 

120,169,13,141,20, 
3,169,192 
410 data 

141,21,3,88,96,165 
,145,201 
420 data 

251,208,14,165,203 
,201,4,208 
430 data 

8,169,0,133,212,13 
3,199,133 
440 data 

216,76,49,234,0 

Na het indrukken van 
STOP/RESTORE moet het 
programma opnieuw worden 
geactiveerd met SYS 49152. 

Toetsenbord 

scannen 

Bij randapparatuur denkt u 
waarschijnlijk aan apparaten 
die van de computer losge¬ 
koppeld kunnen worden, zo¬ 
als de disc-drive, printer en 
joysticks. Ook het toetsen¬ 
bord behoort tot de randappa- 
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E 

S 

Z 

4 

A 

W 

3 

CRSR 

DOWN 

F5 

F3 

F1 
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Figuur 1 


ratuur. Dit klinkt misschien 
raar, omdat het toetsenbord 
onmisbaar is voor het werken 
met de computer. Hoe zou u 
immers instructies aan de 
computer moeten geven zon¬ 
der toetsenbord? De signalen 
die door het toetsenbord wor¬ 
den afgegeven, kunnen ech¬ 
ter niet direct door de 6510 
microprocessor verwerkt 
worden. Het toetsenbord is 
aangesloten op de Complex 
Interface Adapter #1 (CIA 
#1). Deze chip regelt de com¬ 
municatie met de randappa¬ 
ratuur. Daarom wordt het 
toetsenbord als randapparaat 
beschouwd. 

De 6510 microprocessor kan 
met de CIA communiceren 
om gegevens van een randap¬ 
paraat te ontvangen of naar 
een randapparaat te zenden. 


De communicatie tussen de 
CIA en 6510 vindt plaats via 
de adressen 56320-56335 
($DC00-$DC0F). 

Gegevens die van het toet¬ 
senbord afkomstig zijn, kun¬ 
nen via Data Port A en B van 
de CIA gelezen worden. De 
adressen van deze twee poor¬ 
ten zijn respectievelijk 56320 
en 56321. De acht bits van 
deze poorten kunnen zowel 
als input als output bits ge¬ 
bruikt worden. Als een bit als 
input bit gebruikt wordt, dan 
kan er via dit bit een 0 of een 
1 van de CIA ontvangen wor¬ 
den; via een output bit kan 
een 0 of 1 naar de CIA ge¬ 
stuurd worden. Om het toet¬ 
senbord te lezen, moeten alle 
bits van poort A output bits 
zijn en alle bits van poort B 
input bits. 


De inhoud van de adressen 
56322 en 56323 bepalen of 
een de bits van Data Port A 
en B input of output bits zijn. 
Deze twee adressen worden 
Data Direction Port A en B 
genoemd. Als bit 0 van adres 
56322 gelijk is aan 0, dan is 
bit 0 van adres 56320 een in¬ 
put bit en anders een output 
bit. Zo correspondeert elk bit 
van adres 56322 met een bit 
van adres 56320. Op dezelfde 
wijze corresponderen de bits 
van adres 56323 met de bits 
van adres 56321. Met POKE 
56322,255 en POKE 56323,0 
wordt er dus voor gezorgd 
dat alle bits van Port A output 
zijn en alle bits van Port B in¬ 
put. Bij het aanzetten van de 
computer wordt dit automat¬ 
isch gedaan. 


De toetsen van het toetsen¬ 
bord zijn via een matrix ver¬ 
bonden met de CIA. Deze 
matrix is in figuur 1 weerge¬ 
geven. Met behulp van deze 
matrix kan nu als volgt be¬ 
paald worden welke toets er 
is ingedrukt. Eerst moet er 
een rij van de matrix geselec¬ 
teerd worden. Vervolgens 
kan bepaald worden welke 
toetsen in deze rij zijn inge¬ 
drukt. 

Elk bit van adres 56320 cor¬ 
respondeert met een rij uit de 
matrix (zie figuur 1). Door 
een bit op 0 te zetten en de 
andere bits op 1 wordt de rij, 
corresponderend met het bit 
dat op 0 is gezet, geselec¬ 
teerd. Nu kan via adres 
56321 bepaald worden welke 
toetsen er in deze rij zijn in¬ 
gedrukt. De bits van adres 
56321 corresponderen met de 
kolommen van de matrix. 
Een bit in dit adres krijgt de 
waarde 0 als de corresponde¬ 
rende toets in de geselecteer¬ 
de rij is ingedrukt. 

We geven een voorbeeldje. U 
zet bit 2 van adres 56320 op 
0 en de rest op 1. Vervolgens 
leest u de waarde van adres 
56321. U ontdekt dat bit 5 
van deze waarde op 0 staat. 
Dit betekent dat de letter ’F’ 
is ingedrukt. 

Om nu te bepalen welke toet¬ 
sen er zijn ingedrukt, moet u 
elke rij een keer selecteren en 
per rij kijken welke toetsen er 
zijn ingedrukt. Dit is natuur¬ 
lijk een nogal omslachtige 
manier. Normaal doet de in- 
terrupt routine dit werk voor 
u. Deze scant 60 keer per se¬ 
conde het toetsenbord. U 
kunt dan bijvoorbeeld via 
adres 203 bepalen welke 
toets er is ingedrukt. Als dit 
adres de waarde 64 heeft, dan 
is er geen toets ingedrukt. 
Een waarde kleiner dan 64 
betekent dat er een toets is in¬ 
gedrukt. Elke waarde komt 
overeen met een bepaalde 
toets. De toetsen zijn daarbij 
als volgt genummerd: 8 * rij 
bit + kolom bit. Rij bit en ko¬ 
lom bit zijn de bitnummers 
die in figuur 1 bij de rijen en 
kolommen van de matrix 
staan. De letter ’F’ heeft zo 
de waarde 8*2+5=21. Öp 
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deze manier is het echter niet 
mogelijk om te testen of er 
meerdere toetsen tegelijk zijn 
ingedrukt. Daarvoor moeten 
wel de adressen 56320 en 
56321 gebruikt worden. Het 
programma in listing 1 geeft 
hiervan een voorbeeld. Het 
programma drukt de matrix 
van figuur 1 af op het scherm. 
De toetsen die zijn ingedrukt, 
worden in reverse weergege¬ 
ven. Omdat het programma 
in Basic is geschreven, is het 
helaas nogal traag. Nadat u 
een toets heeft ingedrukt, kan 
het enkele seconden duren 
voordat dit op het scherm 
zichtbaar is. Dit kan verhol¬ 
pen worden door het pro¬ 
gramma in machinetaal te 
herschrijven. We hebben 
echter voor een Basic pro¬ 
gramma gekozen, omdat dit 
de methode beter verduide¬ 
lijkt. 

In regel 20 wordt de interrupt 
uitgeschakeld. Dit is nodig, 
omdat de interrupt 60 keer 
per seconde het toetsenbord 
scant. Tijdens dit scannen 
wordt de waarde van adres 
56320 veranderd, waardoor 
het oonmogelijk is om zelf 
een waarde in dit adres te po¬ 
ken. In regel 40 worden ach¬ 
tereenvolgens rij 0 tot 7 van 
de matrix geselecteerd. In re¬ 
gel 50 wordt de waarde van 
adres 56321 aan de variabele 
’k’ toegekend. In regel 80 
wordt getest welke bits van 
deze waarde op 0 staan. 

Zorg ervoor dat u het pro¬ 
gramma eerst op tape of disk 
zet, voodat u het runt. Als het 
programma eenmaal gestart 
is, kan het niet meer gestopt 
worden, omdat de interrupt is 
uitgeschakeld. 

Muterende 

programma’s 

Vroeger, zeg zo’n 25 jaar ge¬ 
leden, waren zelf-muterende 
programma’s populair. Mu¬ 
terende programma’s zijn 
programma’s die veranderen 
tijdens het uitvoeren van het 
programma, waardoor er 
steeds andere dingen worden 
gedaan. Tegenwoordig wordt 
het maken van dergelijke 
programma’s beschouwd als 


slecht en ongestructureerd. 
Een zelf-muterend program¬ 
ma wordt dan ook meteen on¬ 
der de noemer ’ smerig pro¬ 
grammeren’ gezet. Niet ten 
onrechte, want zulke pro¬ 
gramma’s zijn vaak slecht 
leesbaar. Toch zullen we hier 
verder ingaan op muterende 
programma’s, omdat er vaak 
snelheid en geheugen winst 
behaald kan worden; twee 
zeer belangrijke punten voor 
de 64-programmeur. 

Zoals gezegd is een zelf-mu¬ 
terend programma, een pro¬ 
gramma dat de code van het 
programma zelf verandert tij¬ 
dens de uitvoer ervan. Dit be¬ 
tekent dat tijdens de uitvoer 
van het programma in het ge¬ 
heugen geknoeid moet wor¬ 
den, om het programma te 
veranderen. Dit brengt met 
zich mee, dat de program¬ 
meur heel precies moet we¬ 
ten waar elke instuctie pre¬ 
cies in het geheugen staat. Bij 
Basic programma’s is dit 
vrijwel uitgesloten. Bij het 
programmeren in machine- 
code gaat het echter beter. 
Als er in een machinetaal 
monitor geprogrammeerd 
wordt, ziet de programmeur 
meteen waar alle machinetaal 
instructies in het geheugen 
staan. Het is dan vrij makke¬ 
lijk om dan zelf-muterende 
programma’s te schrijven. 
Om het begrip ’zelf-mute- 
rend’ duidelijker te maken 
geven we een voorbeeld. We 
maken eerst een programma 
die het hele beeldscherm vol 
zet met de schermcode $FF: 


c000 

lda 

#$00 

c002 

sta 

$fb 

c004 

lda 

#$04 

c006 

sta 

$fc 

c008 

lda 

#$ff 

c00a 

ldx 

#$00 

c00c 

ldy 

#$00 

c00e 

sta 

($fb),y 

cOlO 

iny 


cOll 

cpy 

#$00 

c013 

bne 

$c00e 

c015 

inc 

$fc 

c017 

inx 


c018 

cpx 

#$04 

cOla 

bne 

$c00c 

cOlc 

rts 



Het bovenstaande program¬ 
ma zet het beeldscherm vol 


met $FF op de conventionele 
manier. De opbouw van het 
programma spreekt voor 
zich. We kunnen dit zelfde 
effect ook op een snellere en 
kortere manier verkrijgen, als 
we een zelf-muterend pro¬ 
gramma schrijven: 

c000 Xda #$ff 
c002 ldy #$00 
c004 ldx #$00 
c006 sta $0400 
c009 inx 
c00a inc $c007 
c00d cpx #$00 
c00f bne $c006 
cOll iny 
c012 inc $c008 
c015 cpy #$04 
c017 bne $c004 
c019 rts 

Als u naar dit programma 
kijkt, ziet u dat in de regels 
$cooa en $col2 de loop van 
het programma beinvloed 
wordt, door rechtstreeks in de 
code te gaan poken. In regel 
c006 wordt er $FF op het 
scherm gepoked. Door in de 
code te poken, wordt het 
schermadres in regel $c006 
steeds verhoogd, totdat het 
hele scherm volstaat met 
$FF. 

Let wel, bij een tweede aan¬ 
roep van dit stukje code, 
wordt niet het scherm volge¬ 
zet met $FF, maar de eerste 
4K geheugen achter het 
schermgeheugen. Dit is het 
grootste nadeel van zelf-mu¬ 
terende programma’s. Bij het 
meerdere malen uitvoeren 
van het programma, worden 
er steeds andere resultaten 
verkregen. De meest ge¬ 
bruikte toepassing van zelf- 
muterende programma’s op 
de Commodore 64 is het ver¬ 
plaatsen van blokken geheu¬ 
gen. we geven hier geen 
voorbeeld programma van, 
maar laten het schrijven van 
een dergelijk programma 
over aan de lezer. 


Overbodig gebruik 
INT 

De instructie INT maakt van 
een breuk (een getal met cij¬ 
fers achter de komma, ofte¬ 
wel floating point getal) een 
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geheel getal. Daarbij rondt 
INT (INT staat voor integer: 
geheel getal) elk getal naar 
beneden af, zodat er een ge¬ 
heel getal overblijft. Dit is 
dus niet hetzelfde als afron¬ 
den, omdat int(9.9) het getal 
9 oplevert, en niet 10. Om af 
te ronden moet bij het getal in 
kwestie nog een 1/2 opgeteld 
worden: 

print int(getal + .5) 

Het bovenstaande statement 
zal de variabele ’getal’ afron¬ 
den en uitprinten. 

Er wordt echter vaak overbo¬ 
dig gebruik gemaakt van de 
instructie INT. Bij een hele¬ 
boel Basic instructies wordt 
het meegegeven getal auto¬ 
matisch geconverteerd naar 
een geheel getal. Het is dan 
dus overbodig om dit eerst 
zelf te doen met INT. Als 
voorbeeld noemen we de in¬ 
stuctie POKE. 

POKE 53280, 0.999 

Als het bovenstaande inge¬ 
voerd wordt, wordt gewoon 
de insructie POKE 53280,0 
uitgevoerd. We geven hie¬ 
ronder een lijst met instruc¬ 
ties, waarbij U de INT in¬ 
structie niet hoeft te gebrui¬ 
ken. 

CHR$ 

DIM 

LEFT$ 

MID$ 

PEEK 

POKE 

RIGHT$ 

SPC 

SYS 

TAB 


Aanwezigheid 
disk-drive of printer 

Soms is het handig om te we¬ 
ten of de disk-drive aanstaat. 
U wilt bijvoorbeeld in een 
programma een hires-plaatje 
inladen. Daarvoor wilt u eerst 
testen of de disk-drive wel 
aanstaat. Immers, als u ge¬ 
woon begint met laden en de 
disk-drive staat nier aan, dan 
wordt er een foutmelding ge¬ 
geven, en stopt de program- 



ma. Om dit te vermijden, 
moet er eerst even getest 
worden of de disk-drive wel 
aanstaat. Dit kunt u doen met 
het volgende programma: 

10 open 2,8,2 
20 close 2 
30 if st = -128 then 
print"drive not 
ready":end 
40 print"drive 
ready" 

Eerst worden er een OPEN 
en een CLOSE gedaan. Als 
daarna ST (Status variabele) 
gelijk is aan -128, staat de 
disk-drive niet aan. Als ST 
gelijk is aan 0, dan staat de 
disk-drive wel aan. 

We kunnen eenzelfde pro¬ 
gramma schrijven voor de 
printer. Hier komt het pro¬ 
gramma, dat test of de printer 
aanstaat: 

10 open 1,4,7 
20 close 1 
30 if st = -128 then 
print"printer 
not ready":end 
40 prinfprinter 
ready" 

Het programma is analoog 
aan het eerste programma 
voor de disk-drive. 

Merge voor de 
cassette 

Het komt wel eens voor dat u 
twee programma’s heeft, die 
u achter elkaar wilt zetten. U 
kunt dan niet de twee pro¬ 
gramma’s gewoon achter el¬ 
kaar inladen, omdat u dan in 
de knoop komt mt Basic- 
pointers. Hieronder beschrij¬ 
ven we een manier hoe u 
twee programma’s op tape, 
achter elkaar kunt zetten. 

- Als eerste moet u er oplet¬ 
ten dat de twee programma’s 
verschillende regelnummers 
hebben. Het tweede pro¬ 
gramma moet verder hogere 
regelnummers hebben, dan 
het eerste programma, zodat 
het tweede programma pre¬ 
cies achter het eerste pro¬ 
gramma komt te staan. 

- Laadt nu het tweede pro¬ 
gramma in. 

- Typ het volgende in: 


c 


OPEN 1,1,1,"prognaam 
2":CMD 1:LIST 

Het tweede programma 
wordt nu sequentieel op tape 
gesaved. 

-Typ in: PRINT#l:CLOSEl 

- Laadt nu het eerste pro¬ 
gramma in. 

- Laadt nu het tweede, se¬ 
quentieel gesavede, program¬ 
ma weer in met: 

POKE 19,1:OPEN 1,1, 

0,"prognaam 2" 

- Als de computer FOUND 
geeft, moet u op de Commo- 
dore-logo toets drukken. 
Voer nu de volgende hande¬ 
lingen uit: 

- Maak het scherm schoon 
met CLR/HOME en druk 
drie keer op CRSR DOWN. 
Typ nu het volgende in: 

POKE 153,l:POKE198, 

1:POKE 631,13: 
PRINTCHR$(13) 

ALs de computer nu klaar is 
met laden, staan de twee pro¬ 
gramma’s gemerged in het 
geheugen. 
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Peeks & Pokes: 

61 en 62: 

In de adressen 61 en 62 staat 
het beginadres van de regel 
opgeslagen, waar de compu¬ 
ter verdergaat met uitvoeren, 
als er CONT wordt inge¬ 
voerd. Het lo- en hi byte van 
dit adres is opgeslagen in res¬ 
pectievelijk adres 61 en adres 
62. Als er na het stoppen van 
het programma iets veran¬ 
derd is aan het programma, 
of als er een foutmelding is 
gegeven, dan staat in adres 

61 de waarde 10 en in adres 

62 de waarde 0. Bij een 
CONT wordt dan de foutmel¬ 
ding "Can’t continue erfor" 
gegeven. 

63 en 64: 

In de adressen 63 en 64 staat 
het huidige data-regel num¬ 
mer. Dit betekent dat de com¬ 
puter in deze twee adressen 
bijhoudt van welke Basic-re- 
gel het volgende data-getal 
gelezen moet worden bij een 
READ. Daarbij staat in adres 
63 het low- en in adres 64 het 
hi-byte van het regelnummer. 
Als de computer bijvoor¬ 
beeld stopt met een Tllegal 
quantity error’ bij een 
READ, kan met behulp van 
deze adressen gekeken wor- 


t 

den, bij welke data-regel de 
computer was met lezen: 

PRINT PEEK(63) + 
256*PEEK(64) 

19: 

In adres 19 wordt het huidige 
I/O apparaat bijgehouden. 
Daarbij heeft het beeld¬ 
scherm de code 0. Dit bete¬ 
kent dat alle beeldscherm 
meldingen worden onder¬ 
drukt als er geen 0 in dit adres 
staat. Zo wordt er bijvoor¬ 
beeld geen vraagteken afge¬ 
drukt bij een INPUT als er 
geen 0 in dit adres staat. 

Michel de Boer & Hylke 
Spranger 


LISTING 1 

5 rem ******************* 

10 rem * keyboard matrix * 

15 rem ******************* 

16 rem 

20 poke 56334,0 

30 print"[SHIFT-CLR]:gosub 120 
40 for i=0 to 7:poke 56320,255-2 A i 
50 k=peek(56321):x=1026+(7-i)*120+7*5 
60 for j=0 to 7 
70 poke x,peek(x) and 127 

80 if (k and 2 / 'j)=0then poke x,peek(x) or 128 
90 x=x-5 

100 next j, i 
110 goto 40 


120 

print" 

stp 

q 

c= 

spc 

2 

ctl 


1":print:print 

130 

print" 

/ 

A 

= 

rsh 

hom 

; 

★ 

I":print:print 

140 

print" 

! 

' 



- 

1 

P 

+":print:print 

150 

print" 

n 

O 

k 

m 

0 

j 

i 

9":print:print 

160 

print" 

V 

u 

h 

b 

8 

g 

y 

7":print:print 

170 

print" 

X 

t 

f 

c 

6 

d 

r 

5":print:print 

180 

print" 

lsh 

e 

s 

z 

4 

a 

w 

3":print:print 

190 

print" 

crd 

f5 

f3 

fl 

f7 

crr 

ret 

del"; 


200 return 
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The Final Chesscard 

Een schaakcartridge voor de 64 



H et computerschaken 
is al zo oud als de 
computer zelf. Aan 
het eind van de veertiger ja- 
ren werd de eerste computer 
ontwikkeld. Het duurde daar¬ 
na niet lang meer voor het 
eerste schaakprogramma ge¬ 
maakt werd. Opvallend feit 
daarbij is, dat de grondlegger 
van de computer, John von 
Neumann, ook aan de basis 
van het computerschaken 
heeft gestaan, samen met 
Claude Shannon en Alan Tu- 
ring. Met de verbetering van 
de computers werden ook de 
schaakprogramma’s beter en 
beter. Chess 4.0, Belle en 
Deep Thought zijn daarbij 
grote namen in de computer- 
schaak geschiedenis. Ook 
voor de Commodore 64 zijn 
er een aantal schaakprogram¬ 
ma’s gemaakt, zoals Grand- 
master, Chessmaster en Co- 
lossus. Sedert enkele tijd is er 
nu een schaakcartridge op de 
markt: The Final Chesscard, 
met een elo-rating van maar 
liefst 2000. Wij testten de 
Commodore 64 versie van 
deze cartridge. 

De Final Cartridge wordt in 
twee uitvoeringen geleverd: 
een Commodore 64 en een 
PC versie. De PC versie heeft 
een speelsterkte van 2100 
Elo en wordt onder meer 
door Hans Boehm gebruikt 
bij zijn tv-presentaties. In de 
rest van dit artikel richten we 
ons echter op de Commodore 
64 versie van deze schaak¬ 
cartridge. 


De cartridge, die groot van 
formaat is, wordt in een kleu¬ 
rige doos geleverd. Bij de 
cartridge wordt nog een dui¬ 
delijke handleiding geleverd. 
Voor dit alles moet u 199 
gulden neertellen. 

De Cartridge 
opstarten 

Als u de Final Chesscard op¬ 
start, krijgt u gelijk een 
schaakbord op het beeld, dat 
bijna het hele scherm vult. 
Rechtsboven op het scherm 
bevinden zich twee klokken, 
die de schaaktijd van respec¬ 
tievelijk zwart en wit bijhou¬ 
den. Daaronder wordt de par- 
tijnotatie automatisch bijge¬ 
houden. De cartridge kan be¬ 
stuurd worden met het toet¬ 
senbord, een joystick of een 
muis. Wij testten de cartridge 
met een joystick. 


Als de cartridge is opgestart 
kan er gelijk begonnen wor¬ 
den met schaken. Dit gebeurt 
door met de joystick een stuk 
aan te wijzen en te verplaat¬ 
sen. Als de speler een zet 
heeft gedaan, doet de compu¬ 
ter automatisch een tegenzet. 
Het gebruik van de joystick is 
zeer eenvoudig. U ziet aan 
een kruisje op het scherm 
waar u bent met de joystick. 
Dit kruisje verdwijnt na een 
tijdje, als u de joystick niet 
aanraakt. Met behulp van de 
vuurknop kunt u de stukken 
dan verplaatsen 
Verder is de cartridge zeer 
gebruikersvriendelijk. In het 
begin komt de handleiding er 
nauwelijks aan te pas. Slechts 
als we wat dieper in willen 
gaan op alle mogelijkheden 
die de cartridge biedt, hebben 
we de handleiding nodig. 


Aan de rechterkant van het 
scherm staan ook nog twee 
pijltjes. Als met de joystick 
op het linker pijltje wordt ge¬ 
drukt, neemt de computer een 
zet terug. Met het rechter 
pijltje kan er dan eventueel 
weer een zet vooruit worden 
gedaan. We vinden het wel 
jammer dat de schaaktijd niet 
wordt gecorrigeerd als er een 
zet terug wordt gedaan: de 
tijd wordt niet teruggezet, 
maar blijft gewoon doorlo¬ 
pen. 

Mogelijkheden 

Hoewel er meteen begonnen 
kan worden met schaken, 
heeft de cartridge ook een he¬ 
leboel opties die ingesteld 
kunnen worden. Boven aan 
het scherm bevindt zich een 
menubar met pulldown 
menu’s (zie figuur 1). Deze 
menubar doet direct aan 
Geos denken, en is onderver¬ 
deeld in de volgende rubrie¬ 
ken: 

- Options 

- Board 

- Settings 

- Disk 

- Features 

Onder elk van deze 5 namen, 
bevinden zich een (groot) 
aantal funkties waarmee het 
gedrag en uiterlijk van de 
card beinvloed resp. bepaald 
kunnen worden. We zullen 
nu voor elk van de 5 rubrie¬ 
ken globaal aangeven welke 
functies ze omvatten. Elk van 
deze functies kan eenvoudig 
met de joystick geselecteerd 
worden, net zoals bij Geos. 
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Options 

De rubriek Options omvat de 
meeste functies. We zullen 
de belangrijkste hiervan be¬ 
spreken. 

De functie Restart spreekt 
voor zich: hier kan een nieuw 
spel mee worden begonnen. 
Met de functie Preset Level 
kunt u instellen hoeveel tijd 
de spelers hebben en hoe lang 
de gemiddelde tijd per zet is. 
U kunt bijvoorbeeld instellen 
dat de computer oneindig 
veel tijd heeft met denken. 
Op deze manier kan de com¬ 
puter een stelling (bijvoor¬ 
beeld een eindspel) volledig 
analyseren. Als u echter vindt 
dat de computer lang genoeg 
heeft nagedacht en een zet 
moet doen, kunt u de functie 
Stop Thinking selecteren; de 
computer zal dan gelijk een 
zet doen. 

Met de functie Play Mode 
kunt u uitkiezen wie tegen 
wie speelt. U kunt bijvoor¬ 
beeld de computer tegen 
zichzelf laten spelen. 

Verder zit er nog een functie 
Take Back AU in, die alle ge¬ 
dane zetten terugneemt. Door 
daarna de functie Replay All 
te gebruiken, worden alle zet¬ 
ten weer vooruit gespeeld. 
Onder deze rubriek misten 
we een Undo functie, waar¬ 
mee de laatst gedane hande¬ 
ling teniet kan worden ge¬ 
daan. Het kan bijvoorbeeld 
voorkomen dat u midden in 
een spel per ongeluk op Res¬ 
tart drukt. U bent dan de hele 
stelling gelijk kwijt. 

Board 

Als u de functie Teaching ge¬ 
bruikt, geeft de Chesscard 
steeds wanneer u een zet 
doet, alle velden aan op het 
bord waar het uitgekozen 
stuk heen kan. 

Als u aan zet bent, kunt u met 
Suggest Move aan de Final 
Chesscard de zet opvragen 
die hij gespeeld zou hebben. 
Met de functies Menu Co- 
lors, Piece Colors en Screen 
Colors kunnen de kleuren in¬ 
gesteld worden van het 
menu, de speelstukken, en 
het scherm. Verder kan de 


snelheid waarmee de stukken 
bewegen ingesteld worden. 
We misten onder deze ru¬ 
briek een functie waarmee de 
snelheid van het aanwijs- 
kruisje ingesteld kon worden. 
We vinden namelijk dat het 
kruisje net iets te traag over 
het scherm loopt. 


Settings 

Met de functie Program kunt 
u het speelgedrag van de card 
instellen. U kunt aangeven of 
de card met of zonder ope- 
ningenboek speelt. Ook kunt 
u de cartridge in de begin- 
nersmode zetten, de cartridge 
zal dan minder goed spelen. 
Met de optie Brute Force 
kunt u ook nog het algoritme 
instellen dat de computer ge¬ 
bruikt bij het schaken. Het 
gaat tever om in dit artikel 
precies aan te geven hoe de 
speelstijl allemaal veranderd 
kan worden. 

Disk 

Onder deze rubriek bevinden 
zich allemaal functies om 
stellingen te saven en te la¬ 
den. De Final Chesscard 
heeft een ingebouwde RAM- 
chjp die gevoed wordt door 
twee penlight batterijen in de 
cartridge. U kunt dan ook 
kiezen of u de stellingen wilt 
saven op deze RAM-disk, of 
op de gewone disk-drive. 
Verder kunt u ook de Settings 
en Board-opties die u alle¬ 
maal heeft ingesteld saven en 
laden. 

Features 

De functie SetUp A Position 
stelt u in staat om zelf een 
stelling op het bord te zetten. 


U kunt met de joystick alle 
stukken op het bord zetten. U 
kunt daarbij nog van alles in¬ 
stellen, bijvoorbeeld welke 
kant de eerste zet moet doen. 

Met de functie Solve For 
Mate kan de speciale matzoe- 
ker van de Final Chesscard 


geactiveerd worden. U kunt 
daarbij de zoekdiepte instel¬ 
len. Solve For Mate is een 
handige functie bij het oplos¬ 
sen van schaakpuzzels. 

Met de functie Print Board 
kunt u een stelling uit laten 
printen op de printer. 

Conclusie 

We hebben nu de belangrijk¬ 
ste functies van de Final 
Chesscard behandeld. We 
kunnen vaststellen dat de car¬ 
tridge over zeer veel functies 
beschikt en dat we nauwe¬ 
lijks functies missen. Als ex¬ 
tra mogelijkheid zit er ook 
nog een demo in, die laat zien 
hoe u om moet gaan met de 
cartridge. Verder is de car¬ 
tridge zeer robuust gepro¬ 
grammeerd: het is ons niet 
gelukt om de cartridge te la¬ 
ten crashen, iets wat niet van 
alle cartridges gezegd kan 
worden. 

Ook willen we nog even de 
gebruikersvriendelijkheid 
van de Final Chesscard on¬ 
derstrepen. Het is zeer plezie¬ 
rig om met de cartridge te 
werken en we zouden wen¬ 
sen dat elk stukje software zo 
gebruikersvriendelijk was als 
deze chesscard. 

Rest er nog de prijs van 199 
piek. Dit is niet een bedrag 
dat elke Commodore 64 be¬ 
zitter even uit zijn of haar 


M e n u b a r 

OPTIONS 1 BOARD fifTTlNrtS 

’ DISK FEATURES I 

RESTaRT 



NEW GAME 

5 SECONDS 

Jem 

SFT IFVFI 

10 SECONDS 

TAKE BACK 
REPLAY MOVE 
OUIT , 

5 MINUTES 

7 r\ k i | K 11 

w Mir^ijTES - 
2 HOURS 


ƒ 

4 PLY DEPTH 


Menu 

Si^bmenu 


mouw schudt. Dit bedrag is 
mede zo hoog door de specia¬ 
le processor (5 MHz!) die in 
de cartridge zit, en de lange 
ontwikkelingstijd (3 jaar). 
We kunnen dus concluderen 
dat als u een grote schaaklief- 
hebber bent, dat u deze car¬ 
tridge zeker moet kopen. U 
krijgt dan zeker waar voor u 
geld en u zult van goede hui¬ 
ze moeten komen om deze 
Final Chesscard te verslaan. 

Michel de Boer & 

Hylke Sprangers 


Specificaties: 


Naam: 

Makers: 

Uitvoering: 

Processor: 

Geheugen: 


Final 

Chesscard 
TASV B.V. 
Cartridge 
65C02, 5Mhz 
64 K ROM, 

8 K RAM-disk 


met batterij- 
voeding 

Speelsterkte:2000 Elo 
Computer: C-64 
Prijs: ƒ199,- 
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PRINTERS EN GEOS 


vragen en antwoorden 


E r bereiken mij de laat¬ 
ste tijd erg veel vragen 
over printers. Waarom 
zij wel of niet werken met 
GEOS en welke de beste is of 
er een interface nodig is of 
niet.... 

Enkele van deze vragen zal ik 
proberen te beantwoorden. 
Of u nu met de C64 of de 
Cl28 werkt maakt voor de 
antwoorden niet uit. 

vraag:Wat moet je weten 
voordat een printer wordt 
aangeschaft om te kunnen 
werken met GEOS? 

Een 80 dpi printer is op dit 
moment de beste koop die 
u kunt doen. Deze printer 
heeft grafisch de beste 
prijs/prestatie op dit mo¬ 
ment. De voorwaarde is 
wel dat u een parallel/cen- 
tronics uitvoering van deze 
printer koopt en niet de 
Commodore versie. 

U dient wel een paral- 
lel/centronics kabel extra 
aan te schaffen. 

vraag:Als ik een geoWrite 
dokument of geoPaint teke¬ 
ning wil printen verschijnt de 
melding "Printer is inacCessi- 
ble" op het beeldscherm. 
Waarom? 

Er zijn een aantal redenen 
waarom deze foutmelding 
op het scherm verschijnt. 
De meest voorkomende is 
dat een verkeerde printer- 
driver is gekozen. Probeer 
in de handleiding van uw 
printer te zoeken welke 
printers uw eigen printer 
kan simuleren en gebruik 


dan vervolgens de daar¬ 
voor bestemde printer. 
Ook kan het voorkomen 
dat u een Centronics prin¬ 
ter bezit en deze met een 
seriële printerdriver pro¬ 
beert aan te sturen. Voor 
Centronics printers zijn 
aparte printerdrivers be¬ 
schikbaar. Voorts wil het 
nog wel eens gebeuren 
dat de printer nog niet aan 
staat of nog niet op "on 
line" staat. Ook kan het 
zijn dat uw papier op is. 

vraag:Wat betekend de mel¬ 
ding" cannot find printerdri¬ 
ver" en wat kan ik hieraan 
doen om dit te vermijden? 

Deze melding geeft aan 
dat u waarschijnlijk de ver¬ 
keerde- of helemaal geen 
printerdriver naar uw werk- 
diskette heeft gekopieerd. 
Ook al staat de naam van 
de door u gekozen onder 
de printer op de desktop. 
De printerdriver hoort op 
de diskette te staan waar 
ook de dokumenten op 
staan. Ook als u uw appli- 
katie op een andere disk 
heeft staan. 

vraag:Waarom wordt mijn 
dokument wat ik wil printen 
helemaal verminkt? 

Hier zijn verschillende re¬ 
denen voor te noemen, 
bijv.: U heeft een printer 
die niet grafisch kan prin¬ 
ten. Omdat in dit soort 
printers gebruik wordt ge¬ 
maakt van de software die 
in de printer aanwezig is 
en niet van buitenaf ge¬ 
stuurd kan worden. 


Heeft u wel een printer die 
een grafische ondersteu¬ 
ning geeft dan is er waar¬ 
schijnlijk weer een ver¬ 
keerde printerdriver geko¬ 
zen. 

Gebruikt u bij uw printer 
een printer-interface dan 
zult u de interface in de 
transparant mode moeten 
zetten. Hoe u dit moet 
doen kunt u vinden in het 
instruktieboek dat met de 
interface werd meegele¬ 
verd. 

vraag:Er zitten blanke lijnen 
tussen de letters, en met te¬ 
keningen printen is dat ook 
het geval. Wat is dit en hoe 
krijg ik ze weg? 

Omdat iedere regel in 
Geos in principe 2 x ge¬ 
print wordt met een kleine 
verschuiving van het pa¬ 
pier kan het inderdaad 
voorkomen dat er een wit- 
te-blanke lijn verschijnt. Dit 
kunt u opheffen door de 
"Line-Feed" optie uit te 
schakelen. Dit gebeurd 
meestal door middel van 
een Dip-switch omzetten 
in de printer en/of interfa- 
cekaart. In het instruktie¬ 
boek van uw printer en/of 
interface vind u welke dip- 
switch dat is. Zet deze op 
OFF en het probleem is 
ook OFF. 

vraag:Kan ik met geoWrite 
mijn dokumenten in NLQ 
printen? 

En zo ja, hoe moet ik dat dan 
doen? 

Ja, dat is mogelijk met de 
geoWrite 2.1 versie. De 


voorwaarde is dat uw prin¬ 
ter een NLQ mode heeft. U 
gaat als volgt te werk: 
eerst plaatst u het Com¬ 
modore Font op uw werk- 
disk bij. 

Vervolgens start u geoWri¬ 
te en tikt u brief in het stan¬ 
daard BSW lettertype. Na¬ 
dat u brief klaar is kunt u 
met C= V de hele pagina 
selekteren. De tekst staat 
nu in reverse op het 
scherm. U gaat met het 
pijltje naar het Font menu 
en kiest hier voor het Com¬ 
modore 10 points Font. 
Vervolgens gaat u naar 
het "Page" menu en selek - 
teer daar de optie NLQ- 
spacing. Dit zal voorko¬ 
men dat het dokument 
zonder spaties wordt ge¬ 
print. Als u nu het doku¬ 
ment print zal deze soft¬ 
warematig de printer in de 
NLQ stand zetten. 

Er zijn printers waar geen 
softwareondersteuning 
mogelijk is. Voor deze 
printereigenaars de vol¬ 
gende tip: 

Zet de printer hardware- 
matig in de NLQ stand. U 
hoeft niet het Commodore 
Font te selekteren. U kunt 
zo printen. 

N.B.: Als u tekeningen in 
het dokument heeft staan 
worden deze natuurlijk niet 
geprint. Ook wordt met 
NLQ printen geen bold, 
underline of italics onder¬ 
steund. 

vraagds GEOS compatibel 
met Daisy Wheel printers? 

In principe niet. GEOS is 
een grafisch georiënteerd 
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programma en kan dan al¬ 
leen door printers verwerkt 
worden die een grafische 
mode bezitten. Doch er is 
inmiddels een printerdriver 
voor dit soort printers ont¬ 
worpen. ASCII Only is de 
toepasselijke naam van 
deze driver. In het print 
Optie menu van geoWrite 
kunt u met de keuze Draft 
en NLQ de printer aanstu¬ 
ren. De optie High kunt u 
dan niet gebruiken. Eve¬ 
neens als tekeningen prin¬ 
ten met een Daisy Wheel 
printer is niet mogelijk. 

vraag:Wat is een geoCable 
en wat doet hij? 

Een geoCable is een pa- 
rallel/centronics kabel die 
tussen de Userpoort van 
de computer en een Cen¬ 
tronics printer wordt aan¬ 
gesloten. Het voordeel van 
zo’n kabel is dat er een 
groot assortiment printers 
tot uw beschikking komt. 
Tevens is de overdracht 
veel sneller. Over de Com¬ 
modore seriële bus wordt 
bit voor bit verstuurt en pa¬ 


rallel worden er 8 bits te¬ 
gelijk verstuurd. U heeft 
dan wel speciale geoCa¬ 
ble printerdrivers nodig. U 
herkent deze printerdri- 
yers aan hun toevoeging 

(gc)- 

vraag:Ik heb een MPS 1230 
printer gekocht maar als ik 
deze Centronics aanstuur 
print hij niet. Wel over de se¬ 
riële poort. Hoe kan dat? 

Als u een Centronics prin¬ 
ter wilt gebruiken voor 
GEOS dan zult u de spe¬ 
ciale Centronics printerdri¬ 
vers moeten gebruiken. 
Deze staan helaas niet op 
de diskettes die door Ber- 
keley worden geleverd. 
Een diskette met de Cen¬ 
tronics printerdrivers is 
verkrijgbaar bij de St. 
GEOS Gebruikers. 

vraag:Als ik losse A4 vellen 
in mijn printer gebruik slaat 
mijn computer vast. Op het 
scherm blijft wel het dialoog¬ 
venster "printing" met daar¬ 
onder CANCEL staan. 

Wat is er gebeurd? 


In principe niets. Uw com¬ 
puter staat gewoon te 
wachten op input. 

Maar waarschijnlijk is het 
de printer die inmiddels 
een paper out detectie 
heeft gedaan en verwacht 
een nieuw blad papier. 
Voert u nu een nieuw blad 
papier in dan zal het pro¬ 
gramma gewoon door¬ 
gaan en terugkeren naar 
de deskTop of de applika- 
tie. Vergeet u niet de prin¬ 
ter weer op "on line" te zet¬ 
ten. 

vraag: Is GEOS compatibel 
met 24 naalds printers. 

Ja. Er zijn twee 24 naalds 
drivers voor GEOS. De 
Star NB 15 driver staat op 
de systemdisk van GEOS 
2.0. De Epson LQ1500 dri¬ 
ver staat op de printerdisk 
van de St. GEOS Gebrui¬ 
kers. 

De volgende printers zijn 
compatibel met deze dri¬ 
vers: 

Epson LQ 1500, LQ 800, 
LQ 850, LQ 1000, LQ 
1050, LQ 1500, 


LQ 2500, Seikosha SL- 
80Al, Star NB 15, Star NB 
24-10 en de Star NB 24- 
15. Het is natuurlijk moge- 
lijk dat er meer printers zijn 
die gebruik kunnen maken 
van deze drivers. Dit moet 
dan gewoon geprobeerd 
worden. Het is heel goed 
moge lijk dat door omscha¬ 
keling van 1 dip-switch de 
printer wel werkt. 

Tot slot 

Zo, ik hoop dat een ieder hier 
de informatie uit kan halen 
die voor u van toepassing is 
en dan alsnog met GEOS van 
start kan gaan. Zijn er speci¬ 
fieke vragen over printers 
met GEOS dan zijn er men¬ 
sen bij de St. GEOS Gebrui¬ 
kers die daar een heleboel 
van af weten. Er is elke dins¬ 
dagavond van 19:00 tot 
22:00 uur een telefonisch 
spreekuur. 

Pim Broekhuijzen 


AMIGA BUSWARE 


Compleet assortiment Amiga PDS software voor ƒ 11,- per schjjf.Vraag nu een gratis catalogus aan of 
bestel voor ƒ 11,- de speciale introductiediskette, namelijk: 

de Amiga Busware In troschijf 

Dit is een schijf uit het Busware assortiment, die we samen met een aantal Amiga specialisten heb¬ 
ben samengesteld. Daarop staat de volgende selektie: 

Grafisch demopakket met workbench schermgrapjes, waaronder Wave Bench, Melt en Dropshadow 
Gauge om te bepalen hoevel geheugen er vrij is 

Record Player (om zelf demonstraties te maken, alle muis en toetsbewegingen kunnen herhaald worden) 

Helios Mouse (maakt venster, waar de muis is, actief) 

Pins (grafisch programma) 

Asteroids (ruimtespel) 

DOS kwik Om meer op schijf te krijgen 

Drunken Mouse (de muis gaat rare bewegingen maken op het scherm) 

Backgammon spelprogramma 

X-lcon Om programma's, die geen ICON hebben, toch te kunnen starten met Icon 
Conman (CLI Editor) 


bel: 020-273198/02152-62343 
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GEOS machinetaal (12) 


rekenen en GEOS processen 



D eze alweer twaalfde 
aflevering van de 
machinetaalcursus 
voor het GEOS operating 
system, is gewijd aan twee 
soorten nog niet eerder be¬ 
sproken routines: rekenrouti¬ 
nes en procesroutines. Net 
zoals alle andere GEOS- 
functies zitten deze standaard 
in de GEOS kemal, en ze 
kunnen ten allen tijde door 
een applicatieprogramma 
worden aangeroepen. En zo¬ 
als bekend: deze zeer uitge- 
briede routine- bibliotheek is 
nu juist dat element van 
GEOS dat het zo’n krachtig 
bedrijfssysteem maakt. De 
listing van de maand is het 
’bouncing bars’ programma, 
dit is gemaakt ter illustratie 
van de mogelijkheden van 
proces- en rekenroutines. 

Getalsysteem 

Een basisbegrip op het ge¬ 
bied van rekenen is het getal¬ 
systeem. De centrale vraag 
is: wat zijn getallen in 
GEOS? Ofwel: Hoe worden 
getallen gerepresenteerd? Al¬ 
lereerst zijn er twee soorten 
getallen: bytes en words. Een 
byte bestaat uit 8 bits en 
neemt dus 1 geheugenplaats 
in, en een word bestaat uit 16 
bits en neemt dus twee ge- 
heugenplaatsen in. De eerste 
geheugenplaats (de eerste 
byte) heet de low-byte, en de 
daaropvolgende geheugen¬ 
plaats heet de high-byte van 
het word. De waarde van het 
word is bepaalt als: lowbyte 
+ high-byte*256. Dit is naar 
alle waarschijnlijkheid al be¬ 


kende stof voor de vaste le¬ 
zers van deze cursus. 

Er is echter ook nog nieuws 
te melden. GEOS kent name¬ 
lijk ook words die mogelijk 
negatief zijn. Dit soort words 
heten signed words (sign = 
teken). Words die per defini¬ 
tie alleen positief zijn, zoals 
in de alinea hierboven, heten 
unsigned. Voor het toestaan 
van negatieve getallen zijn 
helemaal geen extra bits no¬ 
dig om aan te geven of het 


getal negatief is: er wordt ge¬ 
woon een andere interpretatie 
(betekenis) van de bitpatro- 
nen afgesproken. Illustratie 1 
verduidelijkt dit aan de hand 
van 3-bits getallen. In illus¬ 
tratie la staan alle mogelijke 
unsigned 3-bits getallen, in 
illustratie lb alle mogelijke 
signed 3-bits getallen. 


Twee-complementsyst 

eem 

Zoals U ziet geeft in lb het 
hoogste bit wel het teken aan, 
namelijk als het hoogste bit 1 
is, dan is het getal negatief, 
en als het 0 is, dan is het getal 
positief. Het is echter niet zo, 
dat bij het omdraaien van het 
hoogste bit de genegatieveer- 
de versie van het oorspronke¬ 
lijke getal verkregen wordt. 
De positieve getallen gaan 
normaal van 0 naar 3, en de 
negatieve getallen gaan dan 
van het alleronderste getal 
naar -1. Dit systeem wordt 
het twee-complement sys¬ 
teem genoemd. Het grote 
voordeel van dit systeem is 
dat optel en aftrekoperaties 
hetzelfde blijven als in unsig¬ 
ned gevallen. Kijk maar na, 
bijvoorbeeld: -2 + 1 = 110 + 
001 = 111 = -1. Er kan dus 
gewoon van de optelling 110 
+ 001 gebruikgemaakt blij¬ 
ven worden. Het negatieve¬ 
ren van een getal in het twee- 


GBOS REKEN ROUTINES 


naam routine 

adres 

variabelen in 

werking 

variabelen uit 

BBMult 

$cl60 

x,y-ZeroPage addr 

uBYTE(x) * uBYTE(y) in uWORD(x) 

*(x) 

bevat produkt 

Dnegate 

$cl72 

x-ZeroPage adr 

sWORD(x0 wordt -sWORD(x) 

*(x) 

bevat -*(x) 

Dabs 

$cl6f 

x-ZeroPage addr 

ABS (sWDRD (x) ) in sWORD (x) 

* (X) 

bevat ABS *(x) 

GetRandom 

$0187 

geen 

trek 'n willekeurig getal(WORD) 

random bevat getal 

Ddec 

$c.l75 

x-ZeroPage addr 

verminder een uWORD met 1 

*(x) 

= *(X)-1 

BMult 

$cl63 

x,y-ZeroPage addr 

uWORD (x) * uBYTE(y) in uWORD(x) 

*(x) 

produkt,*(y)=0 

DMult 

$cl66 

x,y-ZeroPage addr 

uWORD (x) * uWORD (y) in uWORD (x) 

*(x) 

produkt 

Ddiv 

$cl69 

x,y-ZeroPage addr 

uWORD(x) DIV uWORD(y) in uWORD(x) r8 

=*(x) MOD *(y) 




wWORD(x) MOD uWORD(y) in r8 

*(x) 

=*(x) DIV * (y) 

DSdiv 

$c!6c 

x,y-ZeroPage addr 

idem, maar met 2 signed WORDs 

idem 


notatie: sWORD (x) - signed word waarnaar de waarde van x wijst (in de ZeroPage,want x <= 255) 


uBYTE(y) = unsigned byte waarnaar de waarde van y wijst. 
*(x) = de waarde van het adres waarnaar x wijst 


Illustratie 2 
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GROS PROCES ROUTINES 


naam routine 

InitProcesses 

RestartProces s 

BlockProcess 

Unb1ockProcess 

FreezeProcess 

UnfreezeProcess 

Sleep 

EnableProcess 


adres 

variabelen in 

werking 

variabelen uit 


a-aantal, r0-tabel 

init de processen, NIET gestart!, 

geen. 


x-procesnummer 

start proces x (le proc. => x=0) 

geen. 


x-procesnummer 

idem, maar blokkeer nu proces 1 

geen. 


x-procesnummer 

idem, maar unblokkeer 

geen. 


x-procesnummer 

idem, maar bevries 

geen. 


x-procesnummer 

idem, maar ontdooi 

geen. 


r0-slaaptijd in 

volgt de laatste RTS terug maar \ 

teert als proces 


50-ste seconden 

slaaptijd naar aanroeper terug | 

I geen. 


x-procesnummer 

voer proces x eenmalig uit. 

geen. 


complementsysteem gaat 
door in (getal-1) alle bits te 
inverteren. 

Andere systemen 

Er zijn ook andere getalsyste¬ 
men, waarvan ik er twee zal 
noemen: het 1-comple¬ 

mentsysteem en het sign- 
magnitudesysteem. Deze 

systemen hebben hun speci¬ 
fieke voordelen, maar ook 
hun nadelen. Het 1-comple¬ 
mentsysteem heeft als voor¬ 
deel dat negatieveren erg 
makkelijk is: het inverse ge¬ 
tal is gelijk aan het negatieve 
getal. Nadelen zijn, dat er 
twee nullen zijn: (000 is nul 
maar 111 ook), en dat optel¬ 
len en aftrekken nu via een 
ander systeem gaat. Bijvoor¬ 
beeld: -1 +-1 = 110+ 110=? 
101 = -2. Het tweede alterna¬ 
tieve systeem, het sign-mag- 
nitudesysteem voegt 1 bit toe 
aan een getal dat aangeeft of 
het getal plus of min is. Op 
het eerste gezicht een helder 
systeem: het is zo te zien wat 
de waarde van een getal is. 
Bijvoorbeeld 101 is -1, want 
1 (min) en 01. Nadelen zijn 
echter weer het onhandige 
optellen en aftrekken en het 
bestaan van twee nullen. Al 
met al is het 2-comple- 
mentsysteem het meest ge¬ 
bruikte in computers. 

Reken-routines 

In illustratie 2 vindt U een ta¬ 
bel met GEOS reken-routi- 


nes. Lang niet alle GEOS re- 
ken-operaties werken met ne¬ 
gatieve getallen, dus U moet 
altijd goed kijken bij het 
’werking’-veld. Alle opera¬ 
ties werken wat gegevens-in- 
voer als volgt: de gebruiker 
moet x met ldx een waarde 
geven. Deze waarde is (na¬ 
tuurlijk) tussen 0 en 255. Dat 
is dus (als adres geïnterpre¬ 
teerd) een adres in de Zero 
Page. (De Zero Page is het 
geheugengebied van de C-64 
bestaande uit de eerste 256 
bytes, logisch dus). In dit 
adres moet U de gegevens 
dan zetten, d.w.z. als de in¬ 
voer een byte is, zet dan Uw 
byte die U bijvoorbeeld wilt 
vermenigvuldigen in dat 
adres in de Zero Page. Als de 
invoer voor de routine een 
word is, dan zet U dat word 
dus in het adres in de ZeroPa- 
ge en in het daaropvolgende 
adres. Vervolgens kan dan 
een routine uit de tabel aan¬ 
geroepen worden. 

Rondom 

Een buitenbeentje in de tabel 
van illustratie 2 is de functie 
GetRandom. Deze functie 
trekt een willekeurig word en 
zet dit in de GEOS-variabele 
’random’. Het adres van dit 
’random’ word is 
$850a/$850b. Volgens de 
GEOS Reference Guide heeft 
GetRandom een ongeveer 
uniform verdeeld uitkom¬ 
stenpatroon (alle mogelijke 
65536 uitkomsten komen ge- 


lllustratie 3 

middeld even vaak uit). Ge¬ 
zien mijn ervaringen met het 
’bouncing bars' programma 
lijkt dat inderdaad aardig te 
kloppen. 

De routines BBMult, DMult 
en BMult voeren een verme¬ 
nigvuldiging uit, de routine 
Dnegate negatieveert, Dabs 
geeft de absolute waarde (ne¬ 
gatieve getallen worden posi¬ 
tief, positieve blijven posi¬ 
tief). De routine Ddec ver¬ 
mindert een word met 1, en 
Ddiv en DSdiv voeren een 
deling uit. Deze deling is 
echter geen deling met cijfers 
achter de komma: bij a en b 
en jsr Ddiv wordt het aantal 
malen dat b uit a kan terugge¬ 
geven (de wiskundige DIV 
functie). Het restant dat dan 
van a overblijft staat in r8 (de 
wiskundige MOD functie). 
Een voorbeeld: 17 Ddiv 5 is 3 
(de DIV) met restant 2 (de 
MOD). 

Macro’s 

Nu denkt U misschien: maar 
waar zijn nu de optel- en af- 
trekroutines? Dat is heel sim¬ 
pel: ze staan in de geosMac 
file als macros. Mits U aan 
het begin van Uw program¬ 
ma een ’.include geosMac’ 
doet, kunt U gebruik maken 
van AddW wl,w2 en SubW 
wl,w2. AddW telt het eerste 
word (wl) bij het tweede 
9w2) op en zet de uitkomst in 
w2, wl blijft onveranderd. 
SubW trekt het eerste word 


(wl) van het tweede (w2) af 
en zet de uitkomst in w2, wl 
blijft onveranderd. En omdat 
het twee-complementsy- 
steem de optel- en aftrekin- 
strukties intact laat kunnen 
deze twee macro’s voor zo¬ 
wel positieve als negatieve 
getallen gebruikt worden. 

Problematisch 

En dat is eigen alles wat over 
rekenen in GEOS gezegd kan 
worden. Hoe het allemaal in 
de praktijk gaat is in listing 1 
te zien. Vooral in de routines 
’rnd:’ en ’tel_op:’ wordt wat 
afgerekend. De eerstgenoem¬ 
de routine trekt een willekeu¬ 
rig signed of een unsigned 
word (signed als de carry bit 
1 is bij aanroep, unsigned als 
die 0 is) tussen een minimum 
en een maximum waarde. Dit 
gaat zo: eerst wordt GetRan¬ 
dom aangeroepen. Als er een 
signed word getrokken moest 
worden, dan wordt het hoog¬ 
ste bit onthouden in de varia¬ 
bele sign. Dit hoogste bit van 
random wordt standaard dan 
op nul gezet. Vervolgens 
wordt het random getal (in¬ 
middels verplaatst in register 
al) met (max-min) verme¬ 
nigvuldigd. Dit gaat in 4 
etappes van vermenigvuldi¬ 
ging met BBMult. Immers: 
bij een word maal word ver¬ 
menigvuldiging krijg je een 
produkt van 4 bytes. Tenslot¬ 
te wordt het getal door 32768 
gedeeld en wordt er (min) bij 
opgeteld. De uitkomst is dan 
gegarandeerd tussen min en 
max. Als allerlaatste hande¬ 
ling wordt dan het getal gene- 
gativeerd als het in sign ont¬ 
houden teken 1 is. Zoals U 
ziet blijft rekenen in machi¬ 
netaal toch een problemati¬ 
sche aangelegenheid. Met de 
GEOS functies erbij is het 
een heel stuk minder moei¬ 
lijk, maar makkelijk wordt 
het nooit. 

Processen 

GEOS ondersteunt het wer¬ 
ken met processen. Dat is 
leuk, denkt U nu misschien, 
maar wat zijn processen? Een 
proces is een routine die iede¬ 
re N interrupts aangeroepen 
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wordt en een bepaalde func¬ 
tie uitvoert. N is hierin een 
door de programmeur inge¬ 
stelde variabele. Zoals in vo¬ 
rige afleveringen aan de orde 
is gekomen bevindt ’de com¬ 
puter’ zich als een applicatie- 
programma draait doorgaans 
NIET in de applicatie, maar 
in de GEOS kernal: in de 
MainLoop. Dit is een lijst 
van check-handelingen, die 
als er iets gebeurt, tot actie 
overgaan, maar doorgaans 
niets doen en steeds maar 
weer achter elkaar door afge¬ 
checkt worden. Bijvoor¬ 
beeld: MainLoop kijkt of er 
een menu is geselecteerd of 
een icon is aangeklikt. Maar 
let op: MainLoop kijkt niet 
naar de hardware (in de twee 
genoemde voorbeeldjes is dat 
de muis of joystick) maar 
naar een eigen verborgen 
systeemvariabele om te bepa¬ 
len of er een menu of een 
icon aangeklikt is. Deze sys- 
teemvariabelen worden gezet 
door IntemptLevel, dit is de 
welbekende $0314/$0315 in- 
terrupt van 50 keer in de se¬ 
conde. InterruptLevel kijkt 


naar de hardware en zet over¬ 
eenkomstig de systeemvaria- 
belen, en de eerstvolgende 
keer dat MainLoop daar 
langs komt wordt er aktie on¬ 
dernomen. 

Werking 

Processen worden gebruikt 
om een handeling 'continue’ 
door te laten lopen, bijvoor¬ 
beeld het aanpassen van de 
tijd in een klok in de hoek 
van het scherm, terwijl er een 
applicatie loopt. De program¬ 
meur initialiseert en start dan 
een proces dat bijvoorbeeld 
iedere 50 interrups van Inter¬ 
ruptLevel wordt aangeroepen 
(dus iedere seconde), en de 
seconden wijzer aanpast. 

Voor ieder proces dat geini- 
tialiseert is houdt MainLoop 
een tellervariabele bij. Iedere 
interrupt wordt die teller 1 
verlaagd. Als de MainLoop 
een 0 ziet, wordt de begin- 
waarde weer hersteld, en 
wordt de procesroutine aan¬ 
geroepen. De procesroutine 
is een gewone machinetaal- 
routine (geschreven door U, 
in het voorbeeldgeval past hij 


de secondenwijzer aan). In il¬ 
lustratie 3 staan de GEOS 
routines om met processen te 
werken opgesomd. Om Uw 
processen te initialiseren 
moet er eenmaal InitProces- 
ses aangeroepen worden, met 
in a het aantal processen en in 
r0 een zg. proces-tabel. Deze 
ziet er bijvoorbeeld zo uit: 

.word Process [Routine 
.word NI ; dient elke NI in- 
terrupts uitgevoerd te worden 
.word Process2Routine 
.word N2 
etc. etc.. 

Als InitProcesses is aange¬ 
roepen lopen de processen 
nog niet. Ze kunnen gestart 
worden met de routine Res- 
tartProcess. In x moet het 
processnummer worden 
meegegeven. Let wel op: in 
alle proces- routines geeft 
x=0 het eerste proces aan, 
x=l het tweede, enzovoorts. 

Blokkeren 

Processen kunnen geblok¬ 
keerd en bevroren worden. 
Het verschil is, dat bij blok¬ 


keren de teller iedere inter¬ 
rupt wel wordt aangepast, 
maar dat wanneer 0 bereikt 
wordt, er geen aktie onderno¬ 
men wordt. Bij een bevroren 
proces wordt de teller ge¬ 
woon stopgezet. In het geval 
van een klok is het veel beter 
te blokkeren, omdat dan de 
’tijd’ blijft doorlopen. Ande¬ 
re soorten processen kunnen 
weer beter bevroren worden. 
Om een proces te blokkeren 
is er de routine BlockProcess. 
Herstarten van een geblok¬ 
keerd proces gaat met de rou¬ 
tine UnblockProcess. Voor 
bevriezen/ontdooien zijn er 
FreezeProcess, en Unfreez- 
eProcess. Bij al deze routines 
moet weer in x het proces¬ 
nummer worden meegege¬ 
ven. 

Sleep 

Tenslotte zijn er nog twee 
vreemde eenden in de bijt: 
Sleep en EnableProcess. De 
laatste is de simpelste: hij 
voert een lopend, geblok- 
keert of bevroren (maakt niet 
uit) proces eenmalig uit, en 
laat het lopend, geblokkeert 
of bevroren (wat het was). In 
x moet hier weer het proces¬ 
nummer staan. Met de Sleep- 
functie is het wat moeilijker. 
Deze routine doet wanneer 
hij aangeroepen wordt net 
alsof er een RTS staat. Na 
een slaaptijd van N inter- 
rupts, (N was in r0 voor bij de 
aanroep van Sleep meegege¬ 
ven), keert GEOS echter bij 
de code direct achter de 'jsr 
Sleep’ terug als eenmalig 
proces! Met Sleep moet U 
echter wel erg voorzichtig 
zijn, want U weet nooit van- 
tevoren of de routine in de 
slaaptijd niet overschreven 
is. Ook alle variabelen x,y,a 
en ook alle registers zijn van 
waarde veranderd. Zorg er 
dus ten eerste voor dat het ge¬ 
heugen van de Sleep-routine 
niet overschreven wordt, en 
ten tweede dat de Sleep-rou¬ 
tine totaal omgeving-onaf- 
hankelijk is. 

Bouncing-bars 

Het ’bouncing-bars’ pro¬ 
gramma laat een of meer ta- 
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pijtjes van lijnen over het 
scherm dansen. Voor het uit¬ 
rekenen van de coördinaten 
van de lijnen worden de 
GEOS-rekenroutines ge¬ 
bruikt. Voor het aanpassen, 
tekenen en wissen van de lij¬ 
nen wordt een proces ge¬ 
bruikt. In listing 1 vlak voor 
de menu-tabel staat de ’pro- 
cessTable:’, met eerst een 
pointer naar de proces-routi- 
ne (’handleBars’), en vervol¬ 
gens de frequentie waarmee 
deze aangeroepen moet wor¬ 
den door GEOS (in het begin 
zoals U ziet iedere 36 inter- 
rupts). Het verdere program¬ 
ma bestaat daarnaast, geheel 
onafhankelijk, uit een hori¬ 
zontaal menu met zeven op¬ 
ties: ’exit’, ’add’ (1 tapijt 
meer op het scherm), ’delete’ 
(1 minder), ’pause’ (om het 
beeld stil te zetten), ’reset’ 
(trekt nieuwe coördinaten 
voor alle lopende tapijten), 
en ’faster’ (laat de tapijten 
sneller lopen), en tenslotte 
’slower’. De functie ’pause’ 
voert dus een BlockProcess 
uit, of een UnblockProcess 
als het beeld al stil stond. 

Compileren 

Alle listings dienen in Ge- 
oWrite ingetikt te worden: 
listing 1 onder de naam 
’barLst’, en listing 2 dient 
’barLnk’ te heten. Listing 1 
moet met de GeoAssembler 
gecompileerd worden. Lis¬ 
ting 2 is bestemd voor de 
GeoLinker. In listing 3 ten¬ 
slotte staat een macro dat in 
het ’bouncing-bars’ program¬ 
ma gebruikt wordt. Het is de 
bedoeling dat U dit macro 
aan het begin van de ’geos- 
Mac’ file zet. Het macro heet 
’jsm’, en heeft als parameters 
’wrd’ (een adres van een 
word), ’value’ (een getal tus¬ 
sen -32768 en 32767) en 
’addr’ (een adres om naartoe 
te springen). De betekenis 
van jsm is JumpSMaller: jsm 
wrd,value,addr springt naar 
’addr’ als de waarde van 
’wrd’ kleiner is dan het getal 
'value'. Het macro wordt in 
listing 1 gebruikt om te kij¬ 
ken of de coördinaten van 
een bewegend tapijt niet bui¬ 


ten het beeld dreigen te gaan 
vallen. Dit gebeurt onderaan 
in de routine ’tel_op:’. En nu 
rest mij niets anders U nog 
veel plezier met het program¬ 
ma te wensen en tot een vol¬ 
gende aflevering afscheid te 
nemen. 

Peter Boncz 


LIST 3 

.macro jsm 

wrd,value,addr 
php 
pha 

lda wrd+1 
cmp #0 

.if (value=0) && 
(value) 
bmi jump 
. else 

beq nothing 
bpl nothing 
. endif 

cmp #] (value) 
beq cont 
bcc jump 
bes nothing 
cont: 
lda wrd 
cmp #[(value) 
bes nothing 
jump: 
pla 

pip 

jmp addr 
nothing: 
pla 
pip 


list 2 

.output bounce 
.psect $0800 
.ramsect $1700 
barLst.rel 


LIST 1 

pl 127 
.if Passi 

.include geosSym 
.include geosMac 
.endif 

MAX_BARS=16 
MAX_LINES=10 
MAX_VX=16 
MAX_VY=10 
MIN_VX=1 
MIN_VY=1 
MAX_X=300 
MAX_Y=190 
MIN_X=20 
MIN_Y=40 
BAR_LENGTH= 
10+MAX_LINES*8 
TABLE_LENGTH= 

MAX_BARS *BAR_LENG 
TH 
main: 

lda #0 

jsr SetPattern 
jsr i_Rectangle 
.byte 0,199 
.word 0,319 
LoadW r0, menu 
jsr DoMenu 
LoadW rl, 

barsTable 
LoadW r0, 

TABLE_LENGTH 
jsr ClearRam 
jsr i_PutString 
.word 220 
. byte 

8,24,"Boun" 

.byte "cing 
Bars" 

.byte 10,8,8,8,8 
.byte 8,"-P. Bo" 
.byte "ncz 
'90",0 
jsr 

i_FrameRectangle 
.byte MIN_Y-1, 
.byte MAX_Y+1 
.word MIN_X-1 
.word MAX_X+1 
.byte 255 
exec_bars: 

jsr write_speed 
LoadW r0, 

procTable 
lda #1 
jsr 

InitProcesses 

ldx #0 

jsr 

RestartProcess 
jmp MainLoop 
exit : 

ldx #0 


jsr 

FreezeProcess 
jmp EnterDeskTop 
add: 

jsr add_bar 
roll_menu: 

jsr ReDoMenu 
jsr MouseUp 
jmp MainLoop 
delete: 

jsr delete_bar 
jmp roll_menu 
pause: 

lda blocked 
cmp #0 
beq 1$ 
ldx #0 
jsr 

RestartProcesses 
LoadB blocked,0 
jmp roll menu 

1 $: 

ldx #0 

jsr BlockProcess 
LoadB blocked,1 
jmp roll_menu 
reset: 

LoadB a7H,0 

1 $: 

jsr delete_bar 
cpy #0 
beq 2$ 
inc a7H 
bra 1$ 

2 $: 

lda a7H 
cmp #0 
beq 3$ 
dec a7H 
jsr add_bar 
bra 2$ 

3$: 

lda #0 

jsr SetPattern 
jsr i_Rectangle 
. byte 

MIN_Y,MAX_Y 
. word 

MIN_X,MAX_X 
jmp roll_menu 
slower: 
clc 

lda #8 

adc procTable+2 

sta procTable+2 

cmp #252 

bne 1$ 

lda #244 

sta procTable+2 

1 $: 

jmp exec_bars 
faster: 

lda procTable+2 
cmp #4 
beq 1 $ 
sec 

sbc #8 

sta procTable+2 

1$: 

jmp exec bars 






wnte speed: 

rol max+1 


beq 1$ 

lda #0 

ldy #alH 


sta rllL 

jsr i Rectangle 

ldx #a2L 


iny 

.byte 23,37 

MoveB max,a2L 


iny 

.word 70,200 

jsr BBMult 


lda (a4) , y 

LoadW ril,75 

ldy #alL 


sta r4L 

LoadB rlH,31 

ldx #a3L 


iny 

LoadW 

MoveB max+1,a3L 


lda (a4),y 

r0,speedTxt 

jsr BBMult 


sta r4H 

jsr PutString 

clc 


iny 

LoadW r0,260 

lda a2L 


lda (a4),y 

SubW procTable+2 

adc a3L 


lsr rllH 

,r0 

sta a3L 


sta rllH 

lsr rOH 

lda a2H 


clc 

ror rOL 

adc a3H 


jsr DrawLine 

lsr rOH 

sta a3H 

1$ 


ror rOL 

lda #0 


rts 

lsr rOH 

sta r4L 

draw bar: 

ror rOL 

sta r4H 


ldy #1 

lda #192 

adc r4H 


lda (a6),y 

jsr PutDecimal 

sta r4H 


sta a5L 

jsr ReDoMenu 

ldy #alL 


lda #0 

jsr MouseUp 

ldx #a2L 


sta a5H 

rts 

MoveB max,a2L 


asl a5H 

handleBars: 

jsr BBMult 


rol a5H 

LoadW a0, 

lda a2H 


asl a5H 


clc 


rol a5H 

barsTable 

adc a3L 


asl a5H 

ldx #MAX BARS 

lda #0 


rol a5H 

0$: 

adc a3H 


lda #2 

jsr get bar 

sta a4L 


adc a5L 

cpy #0 

lda #0 


sta a5L 

beq 1$ 

adc r4H 


lda #0 

txa 

sta r4H 


adc a5H 

pha 

ldy #alH 


sta a5H 

jsr draw_bar 

ldx #a2L 


AddW a6,a5 

pla 

MoveB max+1,a2L 


ldy #1 

tax 

jsr BBMult 


lda (a6),y 

bra 0$ 

AddW a4,a2 


cmp #MAX_LINES 

1$: 

AddW min,a2 


beq 1$ 

rts 

lda sign 


MoveW a5,a4 

max: 

cmp #0 


lda #8 

.word 0 

beq 3$ 


bra 2$ 

min: 

ldx #a2 

1$ 


.word 0 

jsr Dnegate 


MoveW a6,a4 

sign: 

3$: 


lda #10 

.byte 0 

ldy #0 

2$ 


rnd: 

lda a2L 


clc 

lda #0 

sta (a0),y 


adc a4L 

sta sign 

lda a2H 


sta a4L 

adc sign 

iny 


lda #0 

sta sign 

sta (a0),y 


adc a4H 

SubW min,max 

inc2 a0: 


sta a4H 

0$: 

clc 


jsr wissen 

jsr GetRandom 

inc aOL 


LoadB a7H,2 

MoveW random,al 

inc aOL 

tel op: 

lda sign 

lda #0 


ldy a7H 

cmp #0 

adc aOH 


lda (a6),y 

beq 1$ 

sta aOH 


sta a8L 

asl alH 

rts 


iny 

lda #0 

wissen: 


lda (a6),y 

sta sign 

ldy #0 


sta a8H 

adc sign 

lda (a4),y 


dey 

sta sign 

sta r3L 


dey 

bra 2$ 

iny 


lda (a5),y 

1$: 

lda (a4),y 


sta a9H 

asl alH 

sta r3H 


dey 

2$: 

iny 


lda (a5),y 

lsr alH 

lda (a4),y 


sta a9L 

asl max 

cmp #0 


AddW a8,a9 


ldx #a8 
jsr Dnegate 
lda a7H 
cmp #2 
bne 1$ 

0 $: 

jmp 11 

1 $: 

cmp #6 
beq 0$ 

jsm a 9,MIN_Y, 

omdraaien 
jsm a9,MAX_Y+l, 
store 

jmp omdraaien 

11 : 

jsm a9,MIN_X, 

omdraaien 
jsm a9,MAX_X+l, 
store 
omdraaien: 
ldy a7H 
lda a8L 
sta (a6),y 
iny 

lda a8H 
sta (a6),y 
jmp tel_op 
store: 

ldy a7H 
dey 

lda a9H 
sta (a4),y 
dey 

lda a9L 
sta (a4),y 
ldy a7H 
iny 
iny 

sty a7H 
cpy #10 
beq teken 
jmp tel_op 
teken: 

ldy #1 
lda (a6),y 
tax 
inx 

cpx #MAX_LINES+1 
bne 1$ 
ldx #1 

1 $: 

txa 

sta (a6),y 
ldy #0 
lda (a4),y 
sta r3L 
iny 

lda (a4),y 
sta r3H 
iny 

lda (a4),y 
sta rllL 
iny 
iny 

lda (a4),y 
sta r4L 
iny 

lda (a4),y 
sta r4H 




s 


ïny 

Ida (a4),y 
lsr rllH 
sta rllH 
sec 

jsr DrawLine 
rts 

get_bar: 
ldy #0 
cpx #0 
beq 1$ 

MoveW a0,a6 
clc 

lda #[BAR_LENGTH 
adc aOL 
sta aOL 

lda #]BARJLENGTH 
adc aOH 
sta aOH 
dex 

lda (a6),y 
cmp #1 
bne get_bar 
ldy #1 

1 $: 

rts 

delete_bar: 

ldx #MAX_BARS 
LoadW aO, 

barsTable 
jsr get_bar 
cpy #0 
beq uit 
lda #MAX_LINES 
pha 

MoveW a6,a4 
lda #10 


beq 3$ 
inx 

cpx #MAX_BARS 

beq uit 

clc 

lda 

#[BAR_LENGTH 

adc aOL 
sta aOL 

lda #]BAR_LENGTH 
adc aOH 
sta aOH 
bra 1$ 

lda #1 
sta (aO),y 
iny 

sta (aO),y 
jsr inc2_a0 
MoveW aO,rl 
LoadW rO, 

BAR_LENGTH-2 
jsr ClearRam 
LoadB a6L,2 

LoadW min,MIN_VX 
LoadW max,MAX_VX 
sec 

jsr rnd 

LoadW min,MIN_VY 
LoadW max,MAX_VY 
sec 

jsr rnd 
clc 

dec a6L 
bne 4$ 

LoadB a6L,2 


.byte 0 
.word pause 
.word resetTxt 
.byte 0 
.word reset 
.word fasterTxt 
.byte 0 
.word faster 
.word slowerTxt 
.byte 0 
.word slower 
exitTxt: 

.byte "exit",0 
addTxt: 

.byte "add",0 
deleteTxt: 

.byte "delete",0 
pauseTxt: 

.byte "pause",0 
resetTxt: 

.byte reset",0 
fasterTxt: 

.byte "faster",0 
slowerTxt: 

.byte "slower",0 
speedTxt: 

. byte 

"speed:",0 
.ramsect 
barsTable: 

.block 

TABLE LENGTH 


clc 

adc a4L 
sta a4L 
lda #0 
adc a4H 
sta a4H 
jsr wissen 
pla 
tax 
dex 

beq 2$ 
txa 
pha 
lda #8 
bra 1$ 

2 $: 

LoadW r0, 

BAR_LENGTH 
MoveW a6,rl 
jsr ClearRam 
uit: 
rts 

add_bar: 
ldy #0 
ldx #0 
LoadW aO, 

barsTable 

1 $: 

lda (aO),y 
cmp #0 


LoadW min,MIN_X 
LoadW max,MAX_X 
clc 

jsr rnd 

LoadW min,MIN_Y 
LoadW max,MAX Y 
clc 

jsr rnd 
dec a6L 
bne 5$ 
rts 

procTable: 

. word handleBars 
.word #36 
blocked: 

.byte #0 
menu: 

.byte 2,21 
.word 4,212 
.byte 7 
.word exitTxt 
.byte 0 
.word exit 
.word addTxt 
.byte 0 
.word add 
.word deleteTxt 
.byte 0 
.word delete 
.word pauseTxt 
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H et weer heeft deze 
zomer niet echt bij¬ 
gedragen aan het op¬ 
zetten van baanbrekende 
softwarecreaties. Tempera¬ 
turen boven de 30 graden 
creëren immers niet meteen 
’het lekker binnenhuis met de 
computer beziggaan’-gevoel. 
Daarom gooien we nu de 
trossen los om het Amiga-rit- 
me weer te pakken te krijgen. 

In de voorgaande aflevering 
hebben we geprobeerd u enig 
inzicht te geven in Intuition- 
functies ten aanzien van tekst 
en graphics. Aansluitend hie¬ 
rop gaan we nu een stap ver¬ 
der. We gaan ons bezighou¬ 
den met Gadgets welke door 
Intuition worden beheerd. 

Wat zijn Gadgets 

Gadgets zijn symbolen op het 
beeldscherm welke, als ze 
geactiveerd worden door de 
gebruiker, een signaal afge¬ 
ven aan Intuition. Het active¬ 
ren van een Gadget gebeurt 
door middel van het aanwij¬ 
zen van het Gadget met de 
muis waarna de linker muis¬ 
knop ingedrukt wordt. 

Een Gadget kan bestaan uit 
alleen een kaal rechthoekje, 
of een rechthoekje voorzien 
van tekst. Hier blijft het niet 
bij, het is ook mogelijk zelf 
gedefinieerde grafische sym¬ 
bolen te laten verschijnen 
binnen de Gadget ruimte. 
Welke soorten Gadgets kun¬ 
nen we onderscheiden? 

1. Boolean gadgets. 

2. Proportional gadgets. 

3. String gadgets. 


AMIGA 

Gadgets 


Figuur 1. 

De Gadget-structuur 

struct Gadget { 
struct Gadget 
*NextGadget; 
SHORT LeftEdge; 
SHORT TopEdge; 
SHORT Width; 

SHORT Height; 
USHORT Flags; 
USHORT Activation; 
USHORT GadgetType; 
APTR GadgetRender; 
APTR SelectRender; 
struct IntuiText 
*GadgetText; 
LONG 

MutualExclude; 
APTR Speciallnfo; 
USHORT GadgetlD; 
APTR UserData; 

I ; 


Figuur 1 

Booleaanse of logische Gad¬ 
gets geven alleen ja/nee ant¬ 
woorden terug. Ingedrukt, 
wordt er een signaal verzon¬ 
den dat het gadget ingedrukt 
is. Met dit type Gadget kunt u 
dus simpele ja/nee of aan/uit 
Gadgets programmeren. 
Proportionele Gadgets die¬ 
nen als tegenhanger van de in 
analoge technieken bekende 
schuifregelaar. De propor¬ 
tionele Gadget kan om deze 
reden gebruikt worden als 
men een meer ' intuitieve’ in- 
voermogelijkheid. 
StringGadgets tot slot, geven 
de gebruiker de mogelijkheid 
om tekst in te voeren. De 
stringgadgets kan bekeken 
worden als de ultieme in- 
voerroutine. Intuition zorgt 
ervoor dat er tijdens de in¬ 
voer niets misgaat. Het enig¬ 
ste dat de gebruiker dient te 
doen is het Gadget aanklik - 


Figuur 2. De bij het element Flags 
behorende bits. 

De bits zijn onder te verdelen in een 

aantal groepen. Die bits die bepalen 
hoe het Gadget eruit ziet in 
geactiveerde toestand, gegevens omtrent 
de positie van het Gadget en de bits 
die de status van het Gadget 
definieëren. 

Groep lGADGHCOMPBij aanklikken wordt het 
Gadget vertoont in de complementaire 
kleuren. 

GADGHBOXBij aanklikken verschijnt er een 
rechthoek om het Gadget. 

GADGHIMAGEDe gebruiker wil een zelf 

gedefinieerde Image afbeelden op de 
plaats van het Gadget. 

GADGHNONEBij aanklikken dient er niets te 
gebeuren op het beeldscherm. 

Groep 2GRELBOTTOMAls deze flag gebruikt 
wordt zal het Gadget gepositioneerd 
worden tov. de onderkant van het 
scherm, als ze niet gezet wordt wordt 
het Gadget gepositioneerd tov. de 
bovenkant van het scherm. 

GRELRIGHTBij gebruikte flag zal het Gadget 
gepositioneerd worden tov. de 
rechterkant van het scherm, als de flag 
niet gebruikt wordt zal het Gadget 
gepositioneerd tov. de linkerkant van 
het scherm. 

GRELWIDTHDe grootte van het Gadget wordt 

bepaalt mbv. de breedte van het scherm. 
De breedte van het Gadget = breedte van 
het Window - waarde van het element 
Width in de Gadget-structuur. 

GRELHEIGHTDe hoogte van het Gadget wordt 
bepaalt mbv. de hoogte van het scherm. 
Gadgethoogte = hoogte van het Window - 
waarde van het element Height in de 
Gadget-structuur. 

Groep 3GADGIMAGEHierbij zal er een 

zelfgedefinieerd Image afgebeeld worden. 

GADGDISABLEDMet behulp van dit flag zet u 
een Gadget buiten werking. Deze flag 
heeft alleen effect voordat u het 
Gadget activeert. 

SELECTEDAls deze flag gezet is, is het 
Gadget geselecteerd. 


Figuur 2 
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Figuur 3. De flags van het element 
Activation. 

TOGGLESELECTHet Gadget wordt een 

wisselschakelaar. De eerste keer dat er 
gedrukt is, zal het Gadget op AAN 
staan, bij de volgende druk zal het 
Gadget op UIT staan. 

GADGIMMEDIATEBij het aanklikken van het 
Gadget krijgt het programma dat het 
Gadget geactiveerd heeft, meteen een 
signaal. 

RELVERIFYHet programma krijgt pas een 

signaal wanneer de gebruiker het Gadget 
losgelaten heeft. 

RIGHTBORDERHet Gadget komt in de 
rechterrand van het 
GimmeZeroZerovenster te staan. 

LEFTBORDERHet Gadget komt in de linkerrand 
van het GimmeZeroZerovenster te staan. 

TOPBORDERHet Gadget komt in de bovenrand 
van het venster te staan. 

BOTTOMBORDERHet Gadget komt in de 

onderrand van het venster te staan. 

STRINGCENTERBij stringgadgets worden de 
strings in het midden van het 
invoervenster geplaatst. Dit gebeurt 
continu, dus ook tijdens de invoer. 

STRINGRIGHTBij stringgadgets, hier worden 
de strings aan de rechterkant van het 
invoervenster afgebeeld. 

LONGINTBij stringgadgets, in plaats van 
strings wordt nu een integerwaarde 
verwacht in het invoervenster. 

ALTKEYMAPBij stringgadgets, er wordt een 
eigen toetstenbordtabel gebruikt. Vul 
de pointer naar een andere 
toetsenbordconfiguratie in, in het 
element AltKeyMap van de structure 
Stringlnfo. 

ENDGADGETBij gebruik van requesters. Als 
een Gadget met gezet ENDGADGET-bit 
ingedrukt is dan zal het requester in 


Figuur 3 


ken en het invoeren van tekst 
kan beginnen. 

Een Gadget 
programmeren 

Alvorens men kan beginnen 
met het programmeren van 
een Gadget dient men enkele 
zaken te weten. We beginnen 
met de Gadget-structuur. Fi¬ 
guur 1 bevat de gehele Gad¬ 
get-structuur. Met behulp 
van deze structuur kan men 
het af te beelden Gadget 
beinvloeden. Het eerste ele¬ 
ment van de Gadget-struc¬ 
tuur slaan we in eerste instan¬ 
tie over, dit komt later in deze 
aflevering aan de orde. De 
volgende vier elementen die¬ 
nen ondertussen al bekend te 
zijn, ze omvatten de linker- 
tophoek coördinaten, de 
breedte en de hoogte. De ele¬ 
menten Flags, Activation en 
GadgetType worden uitge¬ 
legd in resp. figuur 2 en 3. 
Het gaat hier nl. om een serie 
flags die apart worden behan¬ 
delt. GadgetRender dient een 
pointer naar een Imagestruc- 
tuur te bevatten indien u een 
door u zelf gedefinieerd 
plaatje af wilt beelden. Wordt 
geen Image gewenst dan zal 
hier een pointer naaar een 
Border structuur moeten 
staan. SelectRender. Indien 
het Gadget er in ’aangeklik- 
te’ toestand verschillend van 
de originele toestand uit dient 
te zien, dan moet hier de 
pointer naar de betreffende 
Image-structuur vermeld 
staan. In het elfde element, 
GadgetText, moet een poin¬ 
ter naar een IntuiTextstruc- 
tuur staan als u tekst in of 


buiten het Gadget afgebeeld 
wilt zien. In de IntuiText 
structuur definieert u vervol¬ 
gens de eigenschappen van 
de tekst, zoals positie en 
kleur. Het element Mutua- 
lExclude heeft in de huidige 
WorkBench nog geen func¬ 
tie. Ze is opgenomen vanwe¬ 
ge compatibiliteit met toe¬ 
komstige versies. Speciallnfo 
moet een pointer bevatten als 
men gebruik wil maken van 
Proporionele- of String¬ 
gadgets. Bij een Proportio¬ 
neel Gadget dient Specialln¬ 
fo een pointer naar een Prop- 
Info-structuur te bevatten, bij 
een String Gadget moet het 
element wijzen naar een 
Stringlnfo-structuur. Op bei¬ 
de zaken komen we straks 
uitgebreid terug. In het ele¬ 
ment GadgetlD kunt u een 
door u zelf aan te geven num¬ 
mer invullen. Dit nummer zal 
vervolgens altijd terug ko¬ 
men als u de Gadgets via In- 
tuition uitleest. Het element 
UserData is binnen het be¬ 
stek van deze cursus niet van 
belang en zal daarom ook 
niet nader uitgelegd worden. 

Logische Gadgets 

Voordat we verder gaan met 
het programmeren van een 
logisch Gadget, eerst enige 
uitleg omtrent het activeren 
van een Gadget. Een Gadget 
kan op twee manieren gestart 
worden. Ten eerste kan dit 
door in de NewWindow- 
structuur de pointer naar het 
eerste Gadget te vermelden. 
Het element FirstGadget in 
de NewWindow-structuur 
dient deze pointer te bevat¬ 


ten. Wilt u meerdere Gadgets 
starten dan zult u de Gadgets 
aan elkaar moeten 'koppe¬ 
len’. Dit kan door gebruik te 
maken van het element 
NextGadget in de Gadget- 
structuur. Hier dient de poin¬ 
ter naar het volgende Gadget 
te staan. Is de rij compleet 
dan dient u de NextGadget 
pointer van het laatste Gad¬ 
get op NULL te zetten. De 
tweede manier. Start één 
Gadget op met de functies 
AddGadgetf) en Refresh- 
Gadgets() of, in het geval van 
meerdere Gadgets, start de 
gekoppelde Gadget-lijst op 
met AddGList() en Refresh- 
GList(). Deze vier functies 
komen bij de bespreking van 
de Gadgetfuncties straks nog 
aan de orde. 


Een logisch of booleaans 
Gadget kunt u programmeren 
door in het element Gadget¬ 
Type, BOOLGADGET in te 
vullen. Vervolgens kunt u vi¬ 
suele eigenschappen, zoals 
Images, Borders en Teksten, 
van het Gadget programme¬ 
ren. Images worden vertoont 
als de flag GADGHIMAGE 
in het element flags gezet is, 
anders zal het Gadget een 
Border-structuur verwacht¬ 
ten. Tekst bij een Gadget zal 
vertoont worden als er een 
pointer naar een IntuiText- 
structuur gezet is in het ele¬ 
ment GadgetText. Tot slot, 
de wijze waarop het Gadget 
reageert op het aanklikken 
met de muis, wordt bepaalt 
door een aantal flags. Deze 
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flags worden nader behandelt 

in figuur 2. 

Proportionele 

Gadgets 

De logische- of booleaanse 
Gadgets zijn het eenvoudigst 
te programmeren. Bij propor¬ 
tionele Gadgets komt er iets 
meer om de hoek kijken. Ook 
bij bij proportionele Gadgets 
dient men van een Gadget- 
structuur gebruik te maken. 
Naast deze structuur dienen 
we nog van een andere struc¬ 
tuur gebruik te maken. De 
Proplnfo-structuur, zie fi¬ 
guur 5, bevat een aantal ex¬ 
tra gegevens omtrent de 
schuifcontainer, het vierkan¬ 
te blokje binnen een propor¬ 
tionele Gadget, zoals grootte 
en positie. Het eerste element 
van de Proplnfo-structuur, 
Flags genaamd, kan ingevuld 
worden met één of meerdere 
van de volgende vijf flags. 
AUTOKNOBHierdoor 
wordt de standaard schuif¬ 
container, geleverd door In- 
tuition, geaccepteerd. Alle 
afmetingen van de schuif 
worden hierdoor automatisch 
aangepast. 

FREEHORIZDe schuifcon¬ 
tainer kan horizontaal ver¬ 
plaatst worden. 
FREEVERTDe schuifcontai¬ 
ner kan verticaal verplaatst 
worden. (Als zowel FREEH- 
ORIZ als FREEVERT gezet 
is zal er een tweedimensio¬ 
naal proportioneel Gadget 
ontstaan.) 

KNOBHITDeze flag wordt 
door Intuition beheerd. U 
hoeft deze niet te gebruiken. 
PROPBORDERLESS 
De rand om de proportionele 
Gadget wordt niet getekend. 

HorizPot en VertPot bevatten 
resp. de horizontale als verti- 
kale postitie van de schuif¬ 
container. HorizBody en 
VertBody dienen resp. de 
horizontale en vertikale stap- 
grootte van de schuifcontai¬ 
ner te bevatten. Het volgende 
paar, CWidth en CHeight 
dienen zoals de naam al doet 
vermoeden, de breedte en de 
hoogte van de schuifcon¬ 
tainer te bevatten. HPotRes 


Figuur 4. De flags 
van het 
element 
GadgetType. 

BOOLGADGETHet 

Gadget is een 
Booleaans 
Gadget. 

PROPGADGETHet 

Gadget is een 
Proportioneel 
Gadget. 


Figuur 4 

en VPotRes. In deze twee 
elementen van de structuur 
dienen de minimale stap- 
grootte van de schuifcontai¬ 
ner te staan. De laatste twee 
elementen van de Proplnfo- 
structuur, LeftB order en 
TopBorder, moeten de coör¬ 
dinaten van resp. de Imker¬ 
en bovenrand van het schuif- 
gedeelte van de proportionele 
Gadget bevatten. 

In het element Speciallnfo 
van de Gadget-structuur vult 
u de pointer naar de Propln¬ 
fo-structuur in. Hiermee kan 
Intuition de locatie van deze 
structuur in het geheugen 
vinden. De proportionele 
gadget is nu bijna gepro¬ 
grammeerd. Er ontbreekt nog 
één ding, Intuition moet er 
nog op worden geattendeerd 
dat er een Proportioneel Gad¬ 
get getekend moet worden. 
Dit bereikt u door het volgen¬ 
de te doen. Vul in het element 
GadgetType, PROPGAD- 
GET in. Intuition is hiermee 
op de hoogte van uw bedoe¬ 
lingen. Helaas, helaas, hier¬ 
mee komt er nog geen Gad¬ 
get op het scherm. Daar de 
proportionele gadget gebruik 
maakt van een Image, im¬ 
mers de schuifcontainer is 
een grafische afbeelding, een 
Image, moet in het element 
GadgetRender een pointer 
naar een LEGE Image-struc- 
tuur staan. U hoeft niets meer 
te doen dan de Image-stmc- 
tuur te declareren. Intuition 
neemt de rest voor u uit han¬ 
den. 

Nog een opmerking wanneer 
u gebruik maakt van eigen af¬ 
beeldingen. Denk erom dat 


de Image data in Chip-geheu- 
gen staan, anders zal er niets 
op het beeldscherm verschij¬ 
nen. 

String Gadgets 

Ook bij string Gadgets geldt 
hetzelfde als bij de hiervoor 
besproken proportionele 
Gadgets. De Gadget-struc¬ 
tuur dient ingevuld te wor¬ 
den, waarbij het element 
GadgetType op STRGAD- 
GET gezet dient te worden. 
In het Activation-veld kunt u 
nog enige andere stringgad- 
get-eigenschappen vermel¬ 
den zoals, STRINGCENTER 
of STRINGRIGHT. Hiermee 
zal de cursor in het invoer- 


c 

ment Speciallnfo de pointer 
naar de Stringlnfo-structuur, 
vul de Stringlnfo-structuur in 
en uw Gadget is klaar om ge¬ 
start te worden. Hoe ziet de 
Stringlnfo-structuur eruit? 
Bekijk figuur 6 eerst eens. 
Figuur 6 bevat de Stringln¬ 
fo-structuur zoals deze ook te 
vinden is in het bestand ’in- 
tuition/intuition.h’ bij uw 
Lattice of Aztek C compiler. 
Het element Buffer moet een 
pointer bevatten naar een 
buffer waar de ingevoerde 
tekst in kan worden opges¬ 
lagen. Undobuffer dient, net 
als het element Buffer, een 
pointer naar een buffer te be¬ 
vatten waarin de ongecor¬ 



venster resp. in het midden of 
aan de rechterkant staan. 

Ook bij de string Gadgets 
heeft Intuition niet genoeg 
aan de Gadget-structuur. De 
Stringlnfo-structuur bevat 
nog enige additionele ele¬ 
menten die ingevuld dienen 
te worden. Geef in het ele- 


Figuur 5 

. De 

Proplnfo-structu 

ur. 


struct Proplnfo { 

USHORT 

Flags; 

USHORT 

HorizPot; 

USHORT 

VertPot; 

USHORT 

HorizBody; 

USHORT 

VertBody; 

USHORT 

CWidth; 

USHORT 

CHeight; 

USHORT 

HPotRes; 

USHORT 

VPotRes; 

USHORT 

LeftBorder; 

USHORT 

TopBorder; 


Figuur 5 


rigeerde tekst in kan worden 
opgeslagen. U hoeft dit ele¬ 
ment niet in te vullen, het is 
echter wel een extra service 
naar de gebruiker toe als u 
gebruik maakt van een Undo- 
Buffer. Met behulp van het 
element BufferPos zorgt u er¬ 
voor dat de cursor op een be¬ 
paalde plaats in het invoer- 
venster wordt geplaatst. 
MaxChars zal het maximale 
aantal karakters moeten be¬ 
vatten. Gaat dit aantal boven 
het aantal karakters uit dat 
binnen het invoervenster past 
dan zal men binnen dit ven¬ 
ster kunnen schuiven met de 
tekst net zolang tot u een 
MaxChars aantal karakters in 
het venster ingetypt hebt. 
DispPos, tot slot, dient de po¬ 
sitie van de cursor in het dis- 
playveld te bevatten. De 
Stringlnfo-structuur bevat 
nog een aantal andere ele¬ 
menten. Deze elementen 
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hoeft u niet in te vullen, Intui - 
tion beheert ze zelf. U kunt 
deze wel uitlezen. U kunt bij¬ 
voorbeeld in het geval van 
een LONGINT-stringgadget 
de waarde van het ingevoer¬ 
de getal uit het element Lon- 
glnt lezen. 

Gewapend met deze kennis 
dienen we nu in staat te zijn 
een programma te maken, 
welke een aantal Gadgets be¬ 
heerd. 

Gadgets uitlezen 

Voordat we het een en ander 
in praktijk brengen, willen 
we eerst nog wat zeggen over 
het uitlezen van Gadgets. On¬ 
der het uitlezen van Gadgets 
bedoelen we het verkrijgen 
van gegevens over de 'aange¬ 
raakte’ Gadgets. We willen 
immers weten welk Gadget 
aangeraakt werd, wat voor 
tekst ingevoerd is of op wel¬ 
ke positie de proportionele 
gadget terecht gekomen is. 
Het leesprincipe berust op 
het uitlezen van de IDCMP- 
ports, de Intuition Direct 
Communications Message 
Ports. Met deze gegevens kan 
men vervolgens bepalen 
welk Gadget ingedrukt werd, 
waarna men de daarbij¬ 
behorende gegevens uit kan 
lezen. Het geheel draait om 
de functie GetMsg(). Deze 
functie wordt later in deze 
cursus behandeld, ga er voor 
nu maar van uit dat het dient 
om boodschappen van andere 
devices uit te lezen. De gege¬ 
vens worden ingelezen in een 
structure van het type Intui- 
Message. Hoe ziet deze 
structure eruit? (fig 7) De ele¬ 
menten van belang zijn, 

Class geeft de IDCMP flag 
weer. Bij een Gadget-Messa- 
ge kan dit GADGETUP of 
GADGETDOWN zijn. 

Code bevat een code geasso¬ 
cieerd met de boodschap, zo¬ 
als een toetsencode. 

Qualifier is bij toetsencodes 
van belang. Ze geeft de 
SHIFT/CTRL/ALT toetsen¬ 
codes weer. 

IAddress wijst naar een struc¬ 
tuur die bij de boodschap 
hoort. Bij Gadgets hoort hier 
een pointer naar Gadget- 


Figuur 

6 . De 

Stringlnfo-struct 

uur. 

struct 

Stringlnfo { 

UBYTE 

*Buffer; 

UBYTE 

*UndoBuffer; 

SHORT 

BufferPos; 

SHORT 

MaxChars; 

SHORT 

DispPos; 

SHORT 

UndoPos; 

SHORT 

NumChars; 

SHORT 

DispCount; 

SHORT 

CLeft; 

SHORT 

CTop; 

struct 

Layer 

*LayerPtr; 

LONG Longlnt; 

struct 

KeyMap 

*AltKeyMap; 

}; 



Figuur 6 


structuur te staan. De overige 
elementen worden in een vol¬ 
gend deel van de cursus na¬ 
der bekeken. 

Om een melding te ontvan¬ 
gen dient er te worden ge¬ 
wacht op de melding. Dit kan 
op de volgende wijze, 

while(!(Boodschap=(str 
uct IntuiMessage 
*)GetMsg(Window->U 
serPort))); 

waarbij: 

struct IntuiMessage *Bood- 
schap; 

struct Window *Window; 

Dit werkt uitstekend, echter 
het zorgt er wel voor dat in 
een multitasking omgeving 
zoals die van de Amiga, one¬ 
venredig veel tijd wordt weg¬ 
gestolen van de processor ter¬ 
wijl het proces niets anders 
staat te doen dan te wachten. 
Er moet dus een betere oplos¬ 
sing zijn. 

Het antwoord komt vanuit de 
ExecBase library. Deze libra- 
ry levert de functie Wait() 
waarmee men een proces tij¬ 
delijk tot stilstand kan bren¬ 
gen totdat er een signaal op¬ 
treed. 

Wait(lL « 

Window->UserPort-> 
mp_SigBit); 
Boodschap=(struct 
IntuiMessage *) 

GetMsg(Window->Use 
rPort); 

ReplyMsg(Boodschap); 


In het bovenstaande voor¬ 
beeld wordt een nieuw ele¬ 
ment geintroduceerd, name¬ 
lijk de functie ReplyMsg(). U 
dient ALTIJD na een Messa¬ 
ge ontvangen te hebben, deze 
te replieen, omdat anders het 
versturende hopeloos vast 
blijft zitten, wat onvermijde¬ 
lijk in een system shutdown 
zal resulteren. Denk er wel 
om dat er gecontroleerd moet 
worden of de Message ook 
werkelijk aanwezig is, dwz. 
de Message mag NIET gelijk 
aan nul zijn. Hiermee komen 
we tot de laatste verandering. 
De uiteindelijke uitleesrouti- 
ne zou er als volgt uit kunnen 
zien, 

Wait(1L « 

Window->UserPort-> 
mp_SigBit); 

while(!(Boodschap=(str 
uct IntuiMessage 
*) 

GetMsg(Window->Use 
rPort))); 

ReplyMsg(Boodschap); 

Wait() zal in een volgend 
deel van de cursus nader wor¬ 
den uitgelegd, voor nu gaan 
we er van uit dat het proces 
wat deze functie hanteert, 
vast blijft zitten totdat er een 
specifieke actie voorkomt 
waarop Exec het proces door 
laat gaan. 

Figuur 7. De 

IntuiMessage-stru 
ctuur. 

struct 

IntuiMessage { 
struct Message 
ExecMessage; 

ULONG Class; 

USHORT Code; 

USHORT Qualifier; 
APTR IAddress; 

SHORT MouseX; 

SHORT MouseY; 

ULONG Seconds; 

ULONG Micros; 
struct Window 
*IDCMPWindow; 
struct 

IntuiMessage 

*SpecialLink; 

I; 


Figuur 7 


Gadget functies 

Om de Gadgets te beheersen 
en te sturen dient men over 
meerdere functies te beschik¬ 
ken om dit uit te voeren. We 
behandelen de functies in al¬ 
fabetische volgorde. 

ActivateGadget() 

De functie activeert een 
string Gadget. 

Resultaat=ActivateGadg 
et(Gadget,Window, R 
equester) ; 

BOOL Resultaat; 
struct Gadget 
*Gadget; 
struct Window 
*Window; 

struct Requester 
*Requester; 

Als de Gadget niet in een Re¬ 
quester aanwezig is dan kan 
de laatste parameter op 
NULL gezet worden. 

Error=ActivateGadget(& 
Mij nGadget,Mij nWin 
dow,NULL); 
waarbij: 

BOOL Error; 
struct Gadget 
MijnGadget; 
struct Window 
*MijnWindow; 

AddGadget() 

Met deze functie wordt een 
Gadget toegevoegd aan de 
Gadgetlijst. Gewoonlijk 
wordt de parameter Position 
op -1 (min één) gezet. Dit be¬ 
tekent dat de Gadget achter 
aan de lijst wordt toege¬ 
voegd. Men kan ook een po¬ 
sitie opgegeven zoals 0, 1,2, 
e.a. 

TBPositie=AddGadget(Wi 
ndow,Gadget,Positi 
e) ; 

USHORT 

TBPositie,Positie; 

struct Window 
*Window; 
struct Gadget 
*Gadget; 

Pos=AddGadget(MijnWind 
ow,&MijnGadget,-1) 


AddGListO 

Wanneer u meerdere Gadgets 
toe wilt voegen dient u ge¬ 
bruik te maken van de functie 
AddGList(). Voorwaarde is 
wel dat de lijst met Gadgets 
onderling met elkaar verbon¬ 
den is. 






TBPositie=AddGList(Win 
dow,Gadget,Positie 
,AantalGadg,Reques 
ter) ; 

USHORT 

TBPositie,Positie, 
AantalGadg; 
struct Window 
♦Window; 
struct Gadget 
*Gadget; 

struct Requester 
♦Requester; 

Ook hierbij geld weer, als er 
Gadgets binnen een Reque¬ 
ster afgebeeld dienen te wor¬ 
den dan moet de pointer naar 
het Requester meegegeven 
worden. 

In AantalGadg dient men het 
aantal Gadgets op te geven 
dat in de lijst opgenornen 
moeten worden. 

ModifyPropO 

Als u de instellingen van een 
proportioneel Gadget wilt 
veranderen dan kunt u ge¬ 
bruik maken van de functie 
ModifyPropO. Het is bij deze 
functie niet nodig het Gadget 
uit de lijst te halen. 
ModifyProp(Gadget,Wind 
ow,Requester,Flags 
, HorizPot,VertPot, 
HorizBody,VertBody 
) ; 

struct Gadget 
♦Gadget; 
struct Window 
♦Window; 

struct Requester 
♦Requester; 

De overige parameters zijn 
gelijk aan de elementen van 
de Proplnfo-structuur. 

NewModifyPropO 

Identiek aan de bovenstaande 
functie, echter met dit ver¬ 
schil dat met NumGad inge¬ 
steld kan worden hoeveel 
Gadgets aangepast moeten 
worden. ModifyPropO dient 
dus om één proportioneel 
Gadget aan te passen, 
NewModifyPropO om meer¬ 
dere proportionele Gadgets 
aan te passen. 

NewModifyProp(Gadget, W 
indow,Requester,F1 
ags,HorizPot,VertP 
ot,HorizBody, VertB 
ody,NumGad); 
struct Gadget 
♦Gadget; 
struct Window 
♦Window; 


A m i g a 


struct Requester 
♦Requester; 
int NumGad; 


OffGadgetO 

Met de functie NumGad() is 
het mogelijk een Gadget 
'buiten spel' te zetten. Het 
Gadget is na de operatie niet 
meer gevoelig voor aanklik¬ 
ken met de muis. 

OffGadget(Gadget,Windo 
w,Requester); 
struct Gadget 
♦Gadget; 
struct Window 
♦Window; 

struct Requester 
♦Requester; 

Als er geen Requester is, zal 
de parameter op NULL gezet 
moeten worden. 

De flag GADGDISABLED 
in het element Flags van de 
structuur Gadget zal gezet 
zijn. 

OnGadgetO 

Dit is de tegenhanger van de 
bovenstaande functie. Het 
Gadget wordt na de functie 
weer gevoelig voor aanklik¬ 
ken. 

OnGadget(Gadget,Window 
,Requester); 
struct Gadget 
♦Gadget; 
struct Window 
♦Window; 

struct Requester 
♦Requester; 

De flag GADGDISABLED 
in het element flags zal na de 
operatie weer gewist zijn. 

RefreshGadgets 

Na aanroep van de functie zal 
het Gadget, wat met 
AddGadget() aan de lijst toe¬ 
gevoegd is, op het beeld¬ 
scherm verschijnen. 
TBPositie=RefreshGadge 
ts(Window, Gadget); 

USHORT TBPositie; 
struct Window 
♦Window; 
struct Gadget 
♦Gadget; 

Als men -1 terug krijgt in 
TBPositie dan is er een fout 
opgetreden. Naar alle waar¬ 
schijnlijkheid zal de Gadget 
niet in de lijst staan. 

RefreshGListQ 


In het geval van meer dan één 
Gadget dient u de functie 
RefreshGList() aan te roepen 
om ze op het beeldscherm te 
krijgen. Voorwaarde is hier 
ook weer dat de Gadget-lijst 
onderling verbonden moet 
zijn. 

RefreshGList(Gadget,Wi 
ndow,Requester,Num 
Gad) ; 

struct Gadget 
♦Gadget; 
struct Window 
♦Window; 

struct Requester 
♦Requester; 
int NumGad; 

Als NumGad op -1 gezet 
wordt dan worden ALLE 
Gadgets opnieuw getekent. 
Bij een waarde van -2 wor¬ 
den alle Requester-Gadgets 
opnieuw getekent. 

RemoveGadget() 

Wanneer u een Gadget uit de 
lijst wilt verwijderen dient u 
gebruik te maken van de 
functie RemoveGadget(). 
TBPos=RemoveGadget(Win 
dow,Gadget) 

USHORT TBPos; 
struct Window 
♦Window; 
struct Gadget 
♦Gadget; 

Nadat u het Gadget met Re- 
moveGadgetO uit de lijst 
hebt gehaalt mag u verande¬ 
ringen aan het Gadget uitvoe¬ 
ren. 

RemoveGListO 

Idem als hierboven alleen nu 
voor een gekoppelde lijst van 
Gadgets. 

TBPos=RemoveGList(Wind 
ow,Gadget,NumGad) 
USHORT TBPos; 
struct Window 
♦Window; 
struct Gadget 
♦Gadget; 
int NumGad; 

Het voorbeeld 

Nu u op de hoogte bent van 
de Gadgets en hun functies 
kunt u het voorbeeld pro¬ 
gramma eens gaan bekijken. 
Typ het in, bekijk het, pro¬ 
beer het uit. Ga vervolgens 
eens wat wijzigen. Probeer 
zelf een Gadget toe te voe¬ 
gen. Hierdoor leert u meer 


Commodore Info 6/90 


c 

dan wij ooit met één afleve¬ 
ring kunnen vertellen. 

Het programma. Het pro¬ 
gramma zelf is niet meer dan 
een simpele verzameling van 
simpele Gadgets. De Gadgets 
zorgen ervoor dat er een sig¬ 
naal gegeven wordt aan het 
programma. Het programma 
reageert hierop met een spe¬ 
cifieke actie. In het program¬ 
ma zijn enkele zaken ver¬ 
werkt welke nog niet in de 
Amiga C cursus zijn behan¬ 
delt. Maakt u hier zich niet te 
druk over. De meeste func¬ 
ties zijn afkomstig uit de gra- 
phics.library. Ze zorgen er¬ 
voor dat grafische data op het 
beeldscherm veranderd kan 
worden. Zo zorgt SetRGB4() 
ervoor dat de RGB-compo¬ 
nenten van één kleur aange¬ 
past kan worden. Meer hier¬ 
over in één van de volgende 
afleveringen. 

Compile- en link instructies, 

Aztek.. 

cc cdemo.c +L 
ln cdemo.o -lc32 

Lattice.. 

lc -L cdemo.c 

Tot slot 

Weer het einde van een afle¬ 
vering. In de volgende afle¬ 
vering komen de requesters 
en de menu’s uitgebreid aan 
de orde waarna de Intuition- 
pret gebeurt is. We gaan na 
de volgende aflevering een 
niveau dieper. De graphics.li- 
brary is dan aan de beurt. 
Voor nu, experimenteer en 
probeer uit te reiken naar de 
grenzen van uw kunnen. Dre- 
am well! 

Johan & Johan 
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Voorbeeld programma. 

/* In dit programma staan een aantal 
functies afkomstig uit de 
graphics.library. Peins er niet te lang 
over, deze functies worden nog uitgebreid 
behandelt. /* 

#ifndef LATTICE 
#include "functions.h" 

#endif 

#include "exec/types.h" 

#include "graphics/gfxbase.h" 

#include "intuition/intuition.h" 

#define KEUZE1 1 
#define KEUZE2 2 
#define KEÜZE3 3 
#define KEUZE4 4 
#define STRING 5 
#define PR0P1 6 
#define PROP2 7 


unsigned char Buffer[80]="Vul hier uw eigen 
tekst in"; 

unsigned char UndoBuffer[80] ; 

SHORT Pairs[] = { 0,0,42,0,42,21,0,21,0,0 }; 
SHORT PairsStr[] = 

[0,0,172,0,172,10,0,10,0,0 }; 

struct Image ImagePrl,ImagePr2; 

struct IntuiText TextStr = { 

0x01,0x00,JAM1,-51,0, NULL, 

(UBYTE *)"Invoer",NULL }; 
struct IntuiText TextP2 = { 

0x01,0x00,JAM1,3,-8,NULL, 

(UBYTE *)"P2",NULL }; 
struct IntuiText TextPl = { 

0x01,0x00,JAM1,3,-8,NULL, 

(UBYTE *)"PI",NULL }; 
struct IntuiText TextK4 = { 

0x01,0x00, JAM1, 16,6,NULL, 

(UBYTE *)"4",NULL }; 
struct IntuiText TextK3 = [ 

0x01,0x00,JAM1,16,6,NULL, 

(UBYTE *)"3",NULL }; 
struct IntuiText TextK2 = { 

0x01,0x00,JAM1,16,6,NULL, 

(UBYTE *)"2",NULL }; 
struct IntuiText TextKl = { 

0x01,0x00,JAM1,16,6,NULL, 

(UBYTE *)"1",NULL }; 

struct Border Border = { 

-2,-1,0x01,0x00,JAM1,5,Pairs,NULL }; 
struct Border BorderStr = { 

-2,-1,0x01,0x00,JAM1,5,PairsStr,NULL }; 

struct Stringlnfo Stringlnfo = { 

&Buffer[0], 

SUndoBuffer[0], 

0, 60,0, 

NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL }; 
struct Proplnfo Pllnfo = { 

AUTOKNOB|FREEVERT, 

0,0,0x0800,0x0800, 

0,0,0,0,0,0 }; 
struct Proplnfo P2Info = { 

AUTOKNOB|FREEHORIZ, 

0, 0,0x0800,0x0800, 


0,0,0,0,0,0 } ; 

struct Gadget String = { 

NULL,60,90,170,9,GADGHCOMP, 

RELVERIFY,STRGADGET, 

(APTR)SBorderStr,NULL,&TextStr, 

NULL,(APTR)SStringlnfo,7,NULL }; 
struct Gadget Prop2 = { 

{■String, 20, 142,230, 8, GADGHCOMP, 

GADGIMMEDIATE,PROPGADGET, 

(APTR)£ImagePr2,NULL,&TextP2, 

NULL,(APTR)&P2Info,6,NULL }; 
struct Gadget Propl = { 

&Prop2,260,50,16,100,GADGHCOMP, 

GADGIMMEDIATE,PROPGADGET, 

(AP TR)&ImageP r1,NULL, & TextP1, 

NULL,(APTR)&P1Info,5,NULL }; 
struct Gadget Keuze4 = { 

SPropl,200,50,40,20,GADGHCOMP, 

RELVERIFY,BOOLGADGET, 

(APRT)SBorder,NULL, &TextK4 , 

NULL,NULL, 4, NULL } ; 
struct Gadget Keuze3 = { 

£Keuze4,140,50,40,20,GADGHCOMP, 

RELVERIFY,BOOLGADGET, 

(APRT)SBorder,NULL,&TextK3, 

NULL,NULL,3,NULL }; 
struct Gadget Keuze2 = { 

&Keuze3,80,50,40,20,GADGHCOMP, 

RELVERIFY,BOOLGADGET, 

(APRT)SBorder,NULL, STextK2, 

NULL, NULL,2,NULL }; 
struct Gadget Reuzel = { 

SKeuze2,20,50,40,20,GADGHCOMP, 

RELVERIFY,BOOLGADGET, 

(APRT)SBorder,NULL,STextKl, 

NULL,NULL,1,NULL }; 
struct NewWindow NW = { 

0,0,640,240,0x00,0x01,CLOSEWINDOW|GADGETUP| 
GADGETDOWN, 

WINDOWCLOSE|SMART_REFRESH|ACTIVATE|WINDOWDR 
AG|WINDOWDEPTH, 

NULL,NULL,(UBYTE *)"Commodore INFO C-Demo", 
NULL,NULL,0,0,0,0,WBENCHSCREEN } ; 
struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 
struct Window *CDemoWindow; 

void GP_BailOut(f_How,f_Why) 
int f_How; 
char *f_Why; 

{ 

printf("%s",f_Why); 
exit(f_How); 

} 

main () 

{ 

struct IntuiMessage *DemoMessage; 

ULONG Class,Code,GadgetID; 
struct Gadget *GadgetPtr; 
char *Dummy; 

USHORT TBPos; 

IntuitionBase=(struct IntuitionBase *) 
OpenLibrary("intuition.library", 0L); 

if(!(GfxBase=(struct GfxBase *) 

OpenLibrary("graphics.library", 0L))) 
GP_BailO u t(5,"Geen graphics.library\n"); 
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if(!(CDemoWindow=(struct Window *) 

OpenWindow(&NW))) 

GP_BailOut(5,"Window wil niet openen\n"); 

if(!(Dummy=(char *) 

AllocMem(6,NULL))) 

GP_BailOut(5,"Geen geheugen voor Dummy\n"); 

TBPos=AddGList(CDemoWindow,SKeuzel,-1,7,NULL); 
RefreshGList(SKeuzel,CDemoWindow,NULL,7); 
ActivateGadget(SString,CDemoWindow,NULL); 

SetDrMd(CDemoWindow->RPort,JAM1); 

do { 

Wait (lL«CDemoWindow->UserPort->mp_SigBit) ; 

while (! (DemoMessage=(struct IntuiMessage *) 

GetMsg(CDemoWindow->UserPort))); 

ReplyMsg(DemoMessage); 

Class=DemoMessage->Class; 

Code=DemoMessage->Code; 

GadgetPtr=(struct Gadget *)DemoMessage->IAddress; 

GadgetID=GadgetPtr->GadgetID; 

switch(Class) 

{ 

case GADGETUP: 
switch(GadgetID) 

{ 

case KEUZE1: 

SetRGB4(&CDemoWindow->WScreen->ViewPort, 0,0,0, 0); 

break; 

case KEUZE2: 

SetRGB4(&CDemoWindow->WScreen->ViewPort,0,15,0,0) 
break; 

case KEUZE3: 

SetRGB4(&CDemoWindow->WScreen->ViewPort,0,0,15,0) 

r 

break; 

case KEUZE4: } 

SetRGB4(&CDemoWindow->WScreen->ViewPort,0,0,0,15) 
break; 

case STRING: 

SetAPen(CDemoWindow->RPort, 0); 

RectFill(CDemoWindow->RPort,5,160,630,170); 

SetAPen(CDemoWindow->RPort, 2); 

Move(CDemoWindow->RPort,7,168); 

Text(CDemoWindow->RPort,Buffer,strlen(Buffer)); 

SetAPen(CDemoWindow->RPort, 1); 

Move(CDemoWindow->RPort, 5, 166); 

Text(CDemoWindow->RPort,Buffer,strlen(Buffer)); 


break; 

} 

case GADGETDOWN: 
switch(GadgetlD) 

{ 

case PROP1: 

while(Propl.Flags == SELECTED) 

{ 

sprintf(Dummy,"%4x",PIXnfo.VertPot); 

SetAPen(CDemoWindow->RPort,0); 

RectFill(CDemoWindow->RPort,300,48,340, 67); 

SetAPen(CDemoWindow->RPort,2); 

Move(CDemoWindow->RPort, 306,56) ; 

Text(CDemoWindow->RPort,Dummy,strlen(Dummy)); 

SetAPen(CDemoWindow->RPort,1); 

Move(CDemoWindow->RPort, 302,54) ; 

Text(CDemoWindow->RPort,Dummy,strlen(Dummy)); 
} 

break; 
case PROP2: 

while(Prop2.Flags == SELECTED) 

{ 

sprintf(Dummy,"%4x",P2Info.HorizPot); 

SetAPen(CDemoWindow->RPort,0); 

RectFill(CDemoWindow->RPort, 300, 67,340,86); 

SetAPen(CDemoWindow->RPort,2); 

Move(CDemoWindow->RPort,306, 76); 

Text(CDemoWindow->RPort,Dummy,strlen(Dummy)); 

SetAPen(CDemoWindow->RPort,1); 

Move(CDemoWindow->RPort, 302,74) ; 

Text(CDemoWindow->RPort,Dummy,strlen(Dummy)); 
} 

break; 

) 

} 

}while(Class != CLOSEWINDOW); 

FreeMem(Buffer, 6) ; 

CloseWindow(CDemoWindow); 
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Checksum C-64 



Syntax Checksum 


Het overtikken van een listing kan een heel kar¬ 
wei zijn en als u een beetje normaal mens bent 
dan maakt u daarin beslist een aantal fouten. Nu 
is niets moeilijker om de fouten uit je eigen werk 
te halen. Al geruime tijd heeft Jan Bodzinga hier¬ 
voor een zgn. Checksum-programma geschre¬ 
ven. Om de vele nieuwe lezers van Commodore- 
info te helpen volgt hieronder nog een keer een 
volledige uitleg over de werking van dit program¬ 
ma, waarmee het, hoe vreemd dat misschien ook 
lijkt, echt mogelijk is om met behulp van dit pro¬ 
gramma de fouten in elke door ons geplaatste lis¬ 
ting op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt 
hem voordat u het programma RUNt op een dis¬ 
kette of cassette. 

2. U tikt het RUN commando in. Mocht het pro¬ 
gramma de boodschap 'FOUT in dataregels!’ ge¬ 
ven dan heeft u een fout bij het overtikken ge¬ 
maakt. Herstel dan de fout en SAVE de verbeter¬ 
de versie. Mocht het programma met de bood¬ 
schap 'data is weggezet checksum testen met 
sys...'komen dan is tot dusver alles goed. Het 
programma is nu in een stukje machine- 
taalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Ba¬ 
sic geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de 
gehele listing opnieuw te gaan intikken. Als u nu 
een programma op fouten wilt gaan controleren 
dan kunt u dat in het geheugen laden(wel eerst 
het checksum programma hebben gerund). Ver¬ 
volgens typt u zonder het programma te runnen 
de opdracht sys 49152(c-64) of sys 1536 (c-16 
en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regel¬ 
nummers over het scherm met getallen erachter. 
Dezelfde lijst staat ook achter elk door ons ge¬ 
plaatste programma. Wijkt nu een nummer achter 
een regelnummer af van het nummer dat in het 
blad staat dan heeft u in die regel iets anders 
ingetikt dan er in het blad stond. U kunt de 
stroom getallen d.m.v. de RUN/STOP toets pau¬ 
zeren en weer vervolgen met de F1 of F7 toets. 
Het is uitermate belangrijk dat u goed met dit pro¬ 
gramma overweg kunt en mocht u het niet goed 
werkend krijgen bel dan gerust even met onze 
listingservice telefoonlijn. (Maandag 17.00 - 21.00 
uur. Telefoonnummer 02155-25162.) 

De laatste tijd wordt er weer veel gebeld zodat U 
nogwel eens in gesprek krijgt, daarom houdt uw 
vraag kort, vermeld in welk blad het desbetreffen¬ 
de artikel stond. Heeft U veel vragen, of zis uw 
vraag erg uitgebreid, doe het dan schriftelijk, zo¬ 
dat we veel mensen op de maandag avond te 
woord kunnen staan. 


1 rem ****************************** 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new" 

4 rem blijft dit programma in het ge- 

5 rem heugen, laad het te testen pro- 

6 rem gramma en tik daarna sys 49152. 

7 rem ****************************** 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelezen 

30 pokei,a:i=i+l:b=b+a:goto20 

40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0:end 
50 poke4 9184,148:poke4 9185, 192 
55 i=49300 

60 read a: ifa<0then80 
70 pokei,a:b=a+b:i=i+l:goto60 
80 if b<>20068thenprint"[SHIFT-CLR]fo 
ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 prinfdata [SPACE] is [SPACE] weggezet" 

95 print"checksum[SPACE]testen[SPACE] 
met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73,192 
120 data 32,73,192,208,1,96,32,225,255,208 
130 data 3,76,116,164,32,81,192,32,73,192 
140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 
77,163 

180 data 96,162,0,189,123,192,240,6,32,210 
190 data 255,232,208,245,32,73,192,170 
,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32,0 
230 data -1 

240 data 165,197,201,3,240,7,201,4,240 
250 data 6,76,148,192,76,34,192,169 
260 data 147,32,210,255,76,161,192 
270 data -1 

** EINDE LISTING checksum 64 ** 


Checksum Checksum 64 


REGEL 

1 

249 

REGEL 

120 

232 

REGEL 

2 

84 

REGEL 

130 

183 

REGEL 

3 

105 

REGEL 

140 

96 

REGEL 

4 

2 

REGEL 

150 

96 

REGEL 

5 

246 

REGEL 

160 

127 

REGEL 

6 

152 

REGEL 

170 

71 

REGEL 

7 

249 

REGEL 

180 

223 

REGEL 

10 

157 

REGEL 

190 

73 

REGEL 

20 

64 

REGEL 

200 

79 

REGEL 

30 

38 

REGEL 

210 

109 

REGEL 

4 0 

57 

REGEL 

220 

106 

REGEL 

50 

14 

REGEL 

230 

225 

REGEL 

55 

251 

REGEL 

240 

16 

REGEL 

60 

192 

REGEL 

250 

163 

REGEL 

70 

42 

REGEL 

260 

92 

REGEL 

80 

244 

REGEL 

270 

22 

REGEL 

90 

245 




REGEL 

95 

237 




REGEL 

100 

183 




REGEL 

110 

158 
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PRINT OUT C-64 met o.a. Solitair 
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o 
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o 

o 

o 

o 

o 

o 

o 


o 

o 


Balsommen 


Bergen en een luchtballon, dit zijn de elementen 
waar mee moet worden gewerkt. De ballon ver¬ 
liest langzaam hoogte, hij dreigt te pletter te stor¬ 
ten. Dit te pletter slaan is alleen te voorkomen 
door de gaskraan open te draaien. Er is echter 
een probleem, dit kan alleen gebeuren als je de 
som welke op het beeld verschijnt goed hebt op¬ 
gelost. Dus het antwoord intikken en op return 
drukken, de ballon zal dan vanzelf stijgen. Er kan 
gewerkt worden op verschillende moeilijkheids¬ 
graden. Het programma werkt NIET (goed met 
een ingeschakelde cartridge11 Dit programma is 
van F. Reijsbergen uit Leidschendam. 

1 rem ballonsommen / cbm-64 

2 rem door fons reijsbergen 

3 rem leidschendam 

4 rem 

10 rem******start programma 
20 poke52,48:poke56,48:clr 
30 def fnr(x)=int(rnd(1)*x+l) 

40 goto800 
50 rem******setup 

60 poke657,128:poke53272,22:poke53280 
,14:poke53281,14 

70 print"[SHIFT-CLR][CTRL-2]********* 

* * *[SPACE]BALLONSOMMEN[SPACE]***** 
********" 

80 print"[CTRL-7][CRSR-DOWN]Over[SPAC 
E]de[SPACE]bergen[SPACE]vlieg[SPAC 
E]jij[SPACE]in[SPACE]een[SPACE]bal 
Ion,[SPACE]door[SPACE]een[SPACE]ga 
t[SPACE]in[SPACE]de[SPACE]ballon[S 
PACE] 

90 print"verlies[SPACE]je[SPACE]gaszo 
dat[SPACE]de[SPACE]ballon[SPACE]st 
eeds[SPACE]lager[SPACE]komt." 

100 print"Maar[SPACE]je[SPACE]kan[SPAC 
E]meer[SPACE]gas[SPACE]in[SPACE]de 
[SPACE]ballon[SPACE]laten[SPACE]lo 
pen[SPACE]door[SPACE]de[SPACE]gask 
raan"; 

110 print"[SPACE]open[SPACE]te[SPACE]d 
raaien." 

120 print"Het[SPACE]probleem[SPACE]is[ 
SPACE]de[SPACE]gaskraan,[SPACE]die 
[SPACE]werkt[2xSPACE]alleen[SPACE] 
als[SPACE]je[SPACE]eerst[SPACE]een"; 
130 print"[SPACE]som[SPACE]goed[SPACE] 
oplost." 

140 print"Wat[SPACE]moet[SPACE]je[SPAC 
E]dus[SPACE]doen:" 

150 print"Type[SPACE]de[SPACE]uitkomst 
[SPACE]van[SPACE]de[SPACE]som[SPAC 
E]in[SPACE]en[SPACE]druk[2xSPACE]o 
p[SPACE]RETURN[SPACE]om[SPACE]de[S 
PACE]kraan[SPACE]te[SPACE]"; 

160 print"openen.":print"Was[SPACE]de[ 
SPACE]uitkomst[SPACE]goed[SPACE]da 
n[SPACE]zal[SPACE]de[SPACE]ballon[ 
2xSPACE]weer[SPACE]stijgen" ; 

170 print",[SPACE]anders[SPACE]blijft[ 
SPACE]hij[SPACE]dalen." 

180 print"[CRSR-DOWN]Als[SPACE]je[SPAC 
E]een[SPACE]fout[SPACE]maakt[SPACE 


]bij[SPACE]het[SPACE]typen[SPACE]d 
rukdan[SPACE]op[SPACE]INST.DEL." 
190 prinf'Het[SPACE]antwoord[SPACE]op[ 
SPACE]een[SPACE]deling[SPACE]moet[ 
SPACE]worden[2xSPACE]afgerond[SPAC 
E]op[SPACE]TWEE[SPACE]cij fers"; 

200 print"[SPACE]achter[SPACE]de[SPACE 
]komma" 

210 print"[CTRL-1][CRSR-DOWN][4xSPACE] 

[8xSHIFT-*][SPACE]WACHT[SHIFT-SPAC 
E]NU[SHIFT-SPACE]EVEN[SPACE][8xSHI 
FT *][CRSR-UP]" 

220 poke56334,peek(56334)and254:pokel, 
peek (1)and251 

230 dima$(17):b$="[CRSR-DOWN][2xCRSR-L 
EFT]":x=l 

240 fori=832to8 95:reada:pokei, a:next 
250 fori=0to511;pokei+12288,peek(i+532 
48):next 

260 fori=191to222step4 

270 a$(x)=a$(x)+chr$(i)+chr$(i+1)+b$+c 
hr$ (i+2)+chr$(i+3)+"[CRSR-UP]":x=x 
+1:next 

280 fori=159tol90step4 

290 a$(x)=a$(x)+chr$(i)+chr$(i+1)+b$+c 
hr$(i+2)+chr$(i+3)+"[CRSR-UP]":x=x 
+1:next 

300 a$(17)="[2xSPACE][CRSR-DOWN][2xCRS 
R-LEFT][2xSPACE][CRSR-UP]" 

310 a$(1)=chr$(63)+right$(a$(1),7):a$( 
9)=chr$(223)+right$(a$(9),7) 

320 a$(6)="[SPACE]"+a$(6)+"[SPACE]":a$ 
(8)=left$(a$(8),6)+chr$(255)+"[CRS 
R-UP]" 

330 x=12288:fori=63tol23step4:readc:c= 
c*8+x:p=i*8+x:pl=p 

340 forj=ctoc+7:a=peek(j):b=0:ifa=0the 
n370 

350 fork=0to7:j0=2~k:if(a and j0)=j0th 
enb=b+3*(j0~2) 

360 nextk 

370 bl=int(b/256):b2=b-256*bl 
380 pokep,bl:pokep+1,bl:pokep+8,b2:pok 
ep+9,b2;p=p+2;ifp=pl+8thenp=pl+16 
390 nextj,i:p=12288+29*8:fori=ptop+15: 

reada:pokei,a:next:x=32768:a=49152 
400 forj=lto3:readx$:fori=ltolen(x$):p 
okex, (asc(mid$(x$,i,1))+143) :x=x+l 
:nexti,j 

410 readx$:fori=ltolen(x$)/2:x=10* (asc 
(mid$(x$,i*2-l))-65)+asc(mid$(x$, i 
*2))-48 

420 pokea, x:a=a+l:next:ifa<4 92 67goto410 
430 poke49207,80 

440 pokei,peek(1)or4:poke56334,peek(56 
334)orl 

450 v=53248:poke2040,13:sh=80:sp=0.2:p 
okev,100:pokev+l,sh:pokev+39,6 
460 si=54272:fori=sitosi+23:pokei, 0:ne 
xt:pokesi+24,15 
470 return 

480 rem*****verzin + print som 

490 fori=2to4;poke781,i:sys59903:next: 

i=peek(v+31);gosub780 
500 gl=fnr(ml):g2=fnr(ml):so=fnr(m2):i 
fg2>gltheng=gl;gl=g2:g2=g 
510 onsogoto520,530,540, 550 
520 ui=gl+g2:goto560 


O 


I 
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530 ui=gl-g2:goto560 
540 ui=gl*g2:goto560 
550 ui=(int((gl/g2)*100))/100 
560 print"[HOME][CTRL-2][2xCRSR-DOWN]" 
tab(7);:ifmlClOthenprinttab(12); 

570 g$=str$ (gl) : gosub730-.print" [CTRL-2 
][SPACE]"a$(so)"[SPACE]";:g$=str$( 
g2):gosub730:printa$(6)"[CTRL-1]"; 

580 rem*****invoer uitkomst 
590 hit=0:fa=0:i$="":pokel98,0 
600 ss=ss+l:ifss>2thenss=0:sys49160 
610 sh=sh+sp:ifop>0thenop=op-l:sh=sh-s 
p*2:ifsh<80thensh=80 
620 pokev+1,sh:ifpeek(v+31)andl=lthenh 
it=l:return 

630 getg$:if(g$<"0”org$>"9")andg$<>"." 

andg$Ochr$ (13) andg$Ochr$ (20) then600 
640 ifg$=chr$(20)then690 
650 ifg$=chr$(13)then710 
660 iflen(i$)>5then630 

670 ifg$="."theni$=i$+g$:printa$(5) ; :g 
oto630 

680 i$=i$+g$:g$="[SPACE]"+g$:gosub730: 

gotoöOO 

690 ifi$=""thengoto630 

700 i$=left$(i$,len(i$)-1):print"[2xCR 
SR-LEFT]"a$(17)"[2xCRSR-LEFT]:go 
to630 

710 ifi$=""then630 

715 ifval(i$)<>uithenfa=l 

720 return 

730 fori=2tolen(g$):printa$(asc(mid$(g 
$,i,1))-41);:next:return 
740 rem*****fout toon 

750 pokesi+5,136:pokesi+6,240:pokesi+4 
,17:fork=lto6:forz=250to0step-20 
7 60 pokesi+1,z:nextz,k:pokesi+4,16:ret 
urn 

770 rem*****goed toon 

780 pokesi+5,8:pokesi+6,251rpokesi,0:p 
okesi+1,90:pokesi+4,17:pokesi+4,16 
:return 

790 rem*****hoofdprogramma******* 

800 x=rnd(-ti):gosub60:gosub780 
810 print"[lOxSPACE]DRUK[SPACE]OP[SHIF 
T SPACE]EEN[SHIFT-SPACE]TOETS[8xSP 
ACE]":waitl97,191 
820 tg=0:tf=0:1=1 

830 print"[SHIFT-CLR][CTRL-2][6xCRSR-D 
OWN] [2xSPACE]gee f[SPACE]de[SPACE]m 
oeilijkheids[SPACE]graad[2xSPACE]( 
1-4) " 

840 geta$:ifa$<"l"ora$>"4"then840 
850 m2=val(a$):ml=9:aa=0:print"[SHIFT- 
CLR] [COM-8][4xSPACE]level[SPACE]0[ 
4xSPACE]goed[SPACE]0[5xSPACE]fout[ 
SPACE]0[CTRL-1]" 

860 pokev+21,1:poke53272,28:sys49152 
870 print"[HOME]"tab(10)ltab(20)tgtab( 

31) tf 

880 gosub490:ifhit=lthenl070 

890 iffa=0thentg=tg+l:op=5/sp:goto970 

900 rem*****fout antwoord 

910 ifi$=""thenprint"[2xCRSR-RIGHT] 

920 £ori=ltolen (i$) .-print" [2xCRSR-LEFT 
]"a$(17)"[2XCRSR-LEFT]:next:prin 
t"[CTRL-7][SPACE]";:g$=str$(ui):go 
sub730 


930 print"[CTRL-1]:gosub750:fori=lto 

50:ss=ss+0.5:ifss>2thenss=0;sys49160 
940 ifpeek(v+31)andl=lthenl070 
950 sh=sh+sp/2:pokev+1,sh:next 
960 op=0:tf=tf+l 
970 aa=aa+l;ifaa=10thenl000 
980 goto870 

990 rem*****volgend level 

1000 1=1+1:aa=0:ml=ml+10:ifml>99thenml= 

9:sp=sp+0.2 

1010 print"[HOME] [9xCRSR-DOWN] [6xSPACE] 
goed[SPACE]zo.[SPACE]nu[SPACE]op[S 
PACE]naar[SPACE]level"l 
1020 gosub780:fori=shto80step-.1:pokev+ 

1,i:next:sh=80:gosub780 
1030 print"[2xCRSR-DOWN] [lOxSPACE]druk[ 
SPACE]op[SPACE]een[SPACE]toets[8xS 
PACE]":waitl97,191:gosub780 
1040 poke781,9:sys59903:poke781,12:sys5 
9903 

1050 goto870 

1060 rem****op bergen gelopen 

1070 pokesi+6,250:pokesi,160:pokesi+24,31 

1080 pokes+13,254:pokesi+8,40:pokesi+4, 

129:pokesi+ll,129 

1090 fori=ltol50:poke832+fnr(64) , 0:next 
1100 pokev+21,0:pokesi+4,128:pokesi+ll, 129 
1110 print"[HOME] [9xCRSR-DOWN] [2xSPACE] 
jammer[SPACE]maar[SPACE]je[SPACE]b 
allon[SPACE]is[SPACE]neergestort" 

1120 1= (tg-tf) *1: if K0thenl=l 
1130 printtab(12)"[3xCRSR-DOWN]je[SPACE 
]score[SPACE]is[SPACE]"1 
1140 print"[3xCRSR-DOWN] [5xSPACE]wil[SP 
ACE]je[SPACE]het[SPACE]nog[SPACE]e 
ens[SPACE]probeeren" 

1150 geta$ : ifa$=" "thenll50 
1160ifa$="n"thensys64738 
1170ifa$<>"j"thenll50 

1180 restore:fori=832to895:reada:pokei, 
a:next:sh=80:sp=0.2:pokev+1, sh 
1190 goto820 
1200 rem****data 

1210 dataO,127,0,1,255,192,3,255,224,3, 
231,224,7,217,240,7,223,240,7,217, 
240,3 

1220 data231,224,3,255, 224,3,255,224,2, 

255,160,1,127,64,1,62,64,0,156,128,0 
1230 datal56,128,0,73,0,0, 73, 0, 0, 62,0,0 
, 62,0,0, 62,0, 0,28, 0,0 
1240 : 

1250 data43,45,24,58,46,61,48,4 9,50,51, 
52,53,54,55,56,57 
1260 : 

1270 datal92,96,48,24,12,12,6,3,3,6,6,1 
2,56,96,96,192 
1280 : 

1290 data xwghxhxwvfgwghxwgwvfghxhxwgwv 
uefvfgwvfvuefgwvfghxwvutdef 
1300 data gwvuefvfghxwvuefvutscdefgwvfg 
hxwvut s cdeut s rbcdt s ede fvut s c s 
1310 data rbcdtsrqabcsrbcsrqabrbcdeutsr 
qabrbcdt s cdeutdt s rqabede fghxh 
1320 : 

1330 data q0a0n2z0n2zln2z2f6d2y0z5p2h2n 
8h2d2k0t2q4z2s5a0m8u0t2r2u8a2q0a0n 
2z2q4 

1340 data Z0h2elb5c4k5b6r0c4d2y0z5k4ely 
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0ïi4h4h4h4c4k5t2d2v0z5u0t2d9u8b8q4z 

Iu0t2 

1350 data rlu8a2q0a0n2zln2z2h6i7t2q0a0n 
2z0h6b9t2q0a0n2z0k4r0k4q8c4d2y0z5j 
6q2a0 

1360 data q9d2p7y0a5p7y0a6x2u8y7j6x4 

** EINDE LISTING balsom ** 


| Checksum balsom 

REGEL 

1 

174 

REGEL 

700 

178 

REGEL 

2 

41 

REGEL 

710 

46 

REGEL 

3 

36 

REGEL 

715 

33 

REGEL 

4 

143 

REGEL 

720 

142 

REGEL 

10 

191 

REGEL 

730 

152 

REGEL 

20 

64 

REGEL 

740 

223 

REGEL 

30 

10 

REGEL 

750 

113 

REGEL 

40 

33 

REGEL 

760 

199 

REGEL 

50 

28 

REGEL 

770 

192 

REGEL 

60 

45 

REGEL 

780 

178 

REGEL 

70 

22 

REGEL 

790 

157 

REGEL 

80 

167 

REGEL 

800 

241 

REGEL 

90 

192 

REGEL 

810 

141 

REGEL 

100 

245 

REGEL 

820 

156 

REGEL 

110 

202 

REGEL 

830 

126 

REGEL 

120 

66 

REGEL 

840 

217 

REGEL 

130 

250 

REGEL 

850 

39 

REGEL 

140 

89 

REGEL 

860 

158 

REGEL 

150 

74 

REGEL 

870 

252 

REGEL 

160 

247 

REGEL 

880 

38 

REGEL 

170 

238 

REGEL 

890 

209 

REGEL 

180 

62 

REGEL 

900 

13 

REGEL 

190 

53 

REGEL 

910 

231 

REGEL 

200 

146 

REGEL 

920 

146 

REGEL 

210 

23 

REGEL 

930 

201 

REGEL 

220 

227 

REGEL 

940 

52 

REGEL 

230 

250 

REGEL 

950 

153 

REGEL 

240 

168 

REGEL 

960 

124 

REGEL 

250 

164 

REGEL 

970 

83 

REGEL 

260 

46 

REGEL 

980 

40 

REGEL 

270 

80 

REGEL 

990 

232 

REGEL 

280 

54 

REGEL 

1000 

152 

REGEL 

290 

80 

REGEL 

1010 

167 

REGEL 

300 

240 

REGEL 

1020 

196 

REGEL 

310 

200 

REGEL 

1030 

213 

REGEL 

320 

134 

REGEL 

1040 

96 

REGEL 

330 

201 

REGEL 

1050 

40 

REGEL 

340 

153 

REGEL 

1060 

147 

REGEL 

350 

215 

REGEL 

1070 

19 

REGEL 

360 

205 

REGEL 

1080 

242 

REGEL 

370 

192 

REGEL 

1090 

201 

REGEL 

380 

53 

REGEL 

1100 

169 

REGEL 

390 

74 

REGEL 

1110 

155 

REGEL 

400 

55 

REGEL 

1120 

241 

REGEL 

410 

84 

REGEL 

1130 

50 

REGEL 

420 

68 

REGEL 

1140 

29 

REGEL 

430 

49 

REGEL 

1150 

148 

REGEL 

440 

23 

REGEL 

1160 

133 

REGEL 

450 

143 

REGEL 

1170 

80 

REGEL 

460 

52 

REGEL 

1180 

69 

REGEL 

470 

142 

REGEL 

1190 

35 

REGEL 

480 

230 

REGEL 

1200 

81 

REGEL 

490 

28 

REGEL 

1210 

175 

REGEL 

500 

120 

REGEL 

1220 

35 

REGEL 

510 

162 

REGEL 

1230 

16 

REGEL 

520 

73 

REGEL 

1240 

58 

REGEL 

530 

74 

REGEL 

1250 

168 

REGEL 

540 

75 

REGEL 

1260 

58 

REGEL 

550 

17 

REGEL 

1270 

10 

REGEL 

560 

86 

REGEL 

1280 

58 

REGEL 

570 

18 

REGEL 

1290 

198 

REGEL 

580 

180 

REGEL 

1300 

25 

REGEL 

590 

214 

REGEL 

1310 

92 

REGEL 

600 

50 

REGEL 

1320 

58 

REGEL 

610 

18 

REGEL 

1330 

180 

REGEL 

620 

197 

REGEL 

1340 

138 

REGEL 

630 

28 

REGEL 

1350 

140 

REGEL 

640 

104 

REGEL 

1360 

630 

REGEL 

650 

99 




REGEL 

660 

50 




REGEL 

670 

183 




REGEL 

680 

11 
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sterren 


Een soort speelbord met een aantal sterren erop. 
Het spel dat hierop gespeeld wordt bestaat uit 
twee gedeeltes. Er moet diagonaal over de ster¬ 
ren worden heengesprongen. In het eerste deel 
is de bedoeling dat er zo veel mogelijk sterren 
blijven staan en in deel twee is de opzet dat er 
zo weinig mogelijk sterren overblijven. Ook dit 
spel is er een van f. Reijsbergen. 

1 rem sterren slaan / cbm-64 

2 rem door fons reijsbergen 

3 rem 

4 rem 

10 poke53280,0:poke53281,0:poke53272, 

23 

20 goto900 
30 rem*******setup 

40 restore:fori=lto8:forj=lto8:a(i,j) 

=0:nextj,i 

50 fori=lto24:reada:a(a/10,int(.5+((a 
/10)-int(a/10))*10))=l:next 
60 fori=0to8:a(0,i)=8:a(9,i)=8:a(i,0) 

=8:a(i,9)=8:next:return 
70 rem*******variable 
80 t$="[7xSPACE]":fase=l:sl=24:s2=24 

90 s$(l)=t$+"[SPACE]A[SPACE]B[SPACE]C 
[SPACE]D[SPACE]E[SPACE]F[SPACE]G[S 
PACE]H"+chr$(13)+t$+"[COM-A][SHIFT 
*][COM-R][SHIFT-*][COM-R][SHIFT-* 

][COM-R][SHIFT-*][COM-R][SHIFT-*][ 
COM-R][SHIFT-*][COM-R][SHIFT-*][CO 
M R][SHIFT-*][COM-S]" 

100 s$(2)=t$+"[SHIFT--][SPACE][SHIFT— 

][SPACE][SHIFT--][SPACE][SHIFT--][ 
SPACE] [SHIFT--] [SPACE] [SHIFT—] [SP 
ACE][SHIFT--][SPACE][SHIFT--][SPAC 
E][SHIFT--]" 

110 s$(3)=t$+"[COM-Q] [SHIFT-*] [SHIFT —Y 
][SHIFT-*][SHIFT-+][SHIFT-*][SHIFT 
+][SHIFT-*][SHIFT-+][SHIFT-*][SHI 
FT +] [SHIFT-*] [SHIFT—h] [SHIFT-*] [S 
HIFT +][SHIFT-*][COM-W]" 

120 s$(4)=t$+"[COM-Z][SHIFT-*][COM-E][ 
SHIFT-*][COM-E][SHIFT-*][COM-E][SH 
IFT *][COM-E][SHIFT-*][COM-E][SHIF 
T *][COM-E][SHIFT-*][COM-E][SHIFT- 
*][COM-X]" 

130 s$(5)="FASE[SPACE]1[SPACE]Hou[SPAC 
E]zoveel[SPACE]mogelijk[SPACE]ster 
ren[SPACE]over." 

140 s $(6)="FASE[SPACE]2[SPACE]Maak[SPA 
CE]zoveel[SPACE]mogelijk[SPACE]spr 
ongen.[3xSPACE]" 

150 s$ (7)="[40xCOM-T]" 

160 s $(8)="[HOME] [22xCRSR-DOWN]" 

170 return 

180 rem******print speelveld 
190 print"[SHIFT-CLR]" 

200 print"[HOME][2xSPACE]*********[SPA 
CE]Sterren[SPACE]Slaan[SPACE ]***** 
****[CRSR-DOWN]" 

210 prints$(1):fori=lto7:prints$(2):pr 
ints$(3):next:prints$(2):print s$( 

4) 

220 print"[HOME][3xCRSR-DOWN]":fori=lt 
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08 :printtab(4)i"[CRSR-DOWN]":next 
230 iffase=lthenprints$ (5)s$ (7) 

240 iffase=2thenprints$( 6 )s$ (7) 

250 print"[HOME][3xCRSR-DOWN]"tab(28)" 
PUNTEN" 

260 print"[3xCRSR-DOWN]"tab(25)"fase[S 
PACE]1[SPACE]:" 

270 print"[CRSR-DOWN]"tab(25)"fase[SPA 
CE] 2 [SPACE] : " 

280 print"[CRSR-DOWN]"tab(33)"[4xSHIFT 
*][SPACE] 

290 print"[CRSR-DOWN]"tab(25)"score[2x 
SPACE]:" 

300 rem******print stukken 
310 print"[HOME][4xCRSR-DOWN]"tab( 8 );: 
fori=lto 8 :forj=lto 8 :ifa(i,j)thenpr 
int"*[CRSR-RIGHT]";:goto330 
320 print"[SPACE][CRSR-RIGHT]"; 

330 next:print:print"[CRSR-DOWN]"tab (8 
);:next 

340 rem******print score 
350 print"[HOME][7xCRSR-DOWN]"tab(33); 
sl"[CRSR-LEFT][SPACE]":print"[CRSR 
-DOWN]"tab(33);s2"[CRSR-LEFT][SPAC 
E] ” 

360 print"[3xCRSR-DOWN]"tab(33)"[SPACE 
][CRSR-LEFT]"sl-s2"[CRSR-LEFT][SPA 
CE] " 

370 return 

380 rem******doe een zet 

390 prints$( 8 )"ster[SPACE]van[SPACE] 

:poke204,0:gosub650:poke204,1:prin 
t"[SPACE][CRSR-LEFT][SPACE] 

400 xl=val(j$) :yl=asc (i$)-64 
410 print"naar[SPACE]";:poke204,0:gosu 
b650:poke204,1 

420 x2=val(j$);y2=asc(i$)-64 
430 poke781,22:sys59903 
440 rem******kontrolle zet 
450 if(abs(xl-x2)<>2)or(abs(yl-y2)<>2) 
then620 

460 x3=xl-l:ifxl<x2thenx3=xl+l 
470 y3=yl-l:ifyl<y2theny3=yl+l 
480 ifa(xl,yl)<>1 or a(x2,y2)<>0or a( 
x3,y3)<>lthen620 
490 rem******voer zet uit 
500 a(xl, yl)=0:a(x2,y2)=1:a (x3,y3) =0 
510 iffase=lthensl=sl-l 
520 iffase=2thens2=s2-l 
530 rem******nog zet mogelijk? 

540 zm=0 :fori=lto 8 :forj=lto 8 
550 ifiolandjolthenif (a (i, j) +a (i-1, j 
-1)=2)anda(i-2,j-2)=0then600 
560 ifiolthenif (a (i, j) +a (i- 1 , j+l)= 2 )a 
nda(i-2,j+2)=0then600 
570 if jolthenif (a (i, j) +a (i+1, j-l)=2)a 
nda(i+2,j-2)=0then600 
580 if(a(i, j)+a(i+1,j+1)=2)anda(i+2,j + 
2)=0then600 
590 next j,i:return 
600 zm=l;i=8:j=8:goto590 
610 rem******invoer fout 
620 prints$( 8 )"Je[SPACE]hebt[SPACE]een 
[SPACE]invoer[SPACE]fout[SPACE]gem 
aakt." 

630 wait203,64:waitl97,191:poke781,22: 

sys59903;goto390 
640 rem******input 


650 geta$:ifa$<"a"ora$>"h"then650 
660 printa$;:i$=a$ 

670 geta$ : if (a$<"l"ora$>"8") anda$Ochr 
$(20)then670 

680 ifa$=chr$(20)thenprint"[SPACE][2xC 
RSR-LEFT][SPACE][CRSR-LEFT]";:goto 
650 

690 printa$;:j$=a$ 

700 geta$ : ifa$Ochr$ (13) anda$Ochr$ (20 
)then700 

710 ifa$=chr$(20)thenprint"[SPACE][2xC 
RSR-LEFT][SPACE][CRSR-LEFT]:goto 
670 

720 return 

730 rem*******spel uitleg 
740 print"[SHIFT-CLR][2xSPACE]******** 
*[SPACE]STERREN[SPACE]SLAAN[SPACE] 
**★*★★***" 

750 print"[2xCRSR-DOWN]Bij[SPACE]dit[S 
PACE]spel[SPACE]moet[SPACE]je[SPAC 
E]door[SPACE]herhaaldelijk" 

760 print"springen[SPACE]de[SPACE]ster 
ren[SPACE]van[SPACE]het[SPACE]spee 
lbord[3xSPACE]verwij deren." 

770 print"Je[SPACE]moet[SPACE]met[SPAC 
E]een[SPACE]ster[SPACE]diagonaal[S 
PACE]over[SPACE]een" 

780 prinf'andere[SPACE]ster[SPACE]spri 
ngen[SPACE]naar[SPACE]een[SPACE]le 
eg[SPACE]vak." 

790 prinf'De[SPACE]ster[SPACE]wordt[SP 
ACE]dan[SPACE]weg[SPACE]gehaalt." 
800 print"[CRSR-DOWN][4xSPACE]Het[SPAC 
E]spel[SPACE]bestaat[SPACE]uit[SPA 
CE]twee[SPACE]fasen." 

810 print"[CRSR-DOWN]Bij[SPACE]FASE[SP 
ACE]1[SPACE]is[SPACE]het[SPACE]de[ 
SPACE]bedoeling[SPACE]om[SPACE]zov 
eel" ; 

820 prinf'mogelijk[SPACE]sterren[SPACE 
]te[SPACE]laten[SPACE]staan." 

830 print"[CRSR-DOWN]Bij[SPACE]FASE[SP 
ACE]2[SPACE]is[SPACE]het[SPACE]de[ 
SPACE[bedoeling[SPACE]om[SPACE]zov 
eel" ; 

840 prinf'mogelijk[SPACE]sterren[SPACE 
]weg[SPACE]te[SPACE]halen." 

850 print"[CRSR-DOWN][3xSPACE]De[SPACE 
]score[SPACE]is[SPACE]het[SPACE]aa 
ntal[SPACE]sterren[SPACE]van" 

860 prinf'Fase[SPACE]1[SPACE]min[SPACE 
]het[SPACE]aantal[SPACE]sterren[SP 
ACE]van[SPACE]Fase[SPACE]2" 

870 print"[2xCRSR-DOWN][3xSPACE]****** 
* *DRUK[SPACE]OP[SHIFT-SPACE]EEN[SP 
ACE]TOETS********" 

880 wait203,64:waitl97,191:print"[SHIF 
T CLR]":return 
890 rem******hoofdloop 
900 gosub740:gosub40:gosub80:gosubl90 
910 gosub390:gosub310:ifzm=lthen910 
920 fase=2:gosub40:gosub200 
930 gosub390:gosub310:ifzm=lthen930 
940 sl=sl-s2:prints$(8)"[2xCRSR-UP]Het 
[SPACE]spel[SPACE]is[SPACE]afgelop 
en.[SPACE]De[SPACE]score[SPACE]is[ 
SPACE]"sl"[CRSR-DOWN]" 

950 ifsl=15thenprinf'DAT[SPACE]IS[SPAC 
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E] REDELIJK. " 

960 ifs1=16thenprint"DAT[SPACE]IS[SPAC 
E]ZEER[SPACE]GOED." 

970 ifsl=17thenprint"DAT[SPACE]IS[SPAC 
E]UITSTEKEND." 

980 print"[1lxSPACE]Nog[SPACE]een[SPAC 
E]poging[SPACE]?" 

990 geta$:ifa$="j"thenrun 
1000 goto990 

1010 rem*****data plaats sterren 
1020 datall,13,15,17,22,24,26,28,31,37, 
42, 48 

1030 data51,57,62,68,71, 73, 75, 77,82,84, 

86 , 88 

** EINDE LISTING sterren ** 


Checksum sterren 


REGEL 

i 

185 

REGEL 

520 

205 

REGEL 

2 

41 

REGEL 

530 

243 

REGEL 

3 

36 

REGEL 

540 

16 

REGEL 

4 

143 

REGEL 

550 

59 

REGEL 

10 

138 

REGEL 

560 

171 

REGEL 

20 

34 

REGEL 

570 

172 

REGEL 

30 

70 

REGEL 

580 

153 

REGEL 

40 

251 

REGEL 

590 

9 

REGEL 

50 

176 

REGEL 

600 

198 

REGEL 

60 

138 

REGEL 

610 

156 

REGEL 

70 

251 

REGEL 

620 

32 

REGEL 

80 

87 

REGEL 

630 

51 

REGEL 

90 

167 

REGEL 

640 

27 

REGEL 

100 

215 

REGEL 

650 

252 

REGEL 

110 

110 

REGEL 

660 

247 

REGEL 

120 

85 

REGEL 

670 

33 

REGEL 

130 

99 

REGEL 

680 

16 

REGEL 

140 

160 

REGEL 

690 

248 

REGEL 

150 

109 

REGEL 

700 

64 

REGEL 

160 

127 

REGEL 

710 

18 

REGEL 

170 

142 

REGEL 

720 

142 

REGEL 

180 

188 

REGEL 

730 

179 

REGEL 

190 

112 

REGEL 

740 

246 

REGEL 

200 

135 

REGEL 

750 

9 

REGEL 

210 

71 

REGEL 

760 

200 

REGEL 

220 

19 

REGEL 

770 

177 

REGEL 

230 

201 

REGEL 

780 

87 

REGEL 

240 

203 

REGEL 

790 

142 

REGEL 

250 

119 

REGEL 

800 

73 

REGEL 

260 

17 

REGEL 

810 

206 

REGEL 

270 

240 

REGEL 

820 

4 

REGEL 

280 

145 

REGEL 

830 

207 

REGEL 

290 

27 

REGEL 

840 

100 

REGEL 

300 

61 

REGEL 

850 

169 

REGEL 

310 

111 

REGEL 

860 

252 

REGEL 

320 

53 

REGEL 

870 

123 

REGEL 

330 

120 

REGEL 

880 

99 

REGEL 

340 

148 

REGEL 

890 

53 

REGEL 

350 

52 

REGEL 

900 

227 

REGEL 

360 

184 

REGEL 

910 

20 

REGEL 

370 

142 

REGEL 

920 

135 

REGEL 

380 

46 

REGEL 

930 

22 

REGEL 

390 

19 

REGEL 

940 

13 

REGEL 

400 

206 

REGEL 

950 

24 

REGEL 

410 

35 

REGEL 

960 

36 

REGEL 

420 

208 

REGEL 

970 

208 

REGEL 

430 

169 

REGEL 

980 

28 

REGEL 

440 

56 

REGEL 

990 

161 

REGEL 

450 

212 

REGEL 

1000 

43 

REGEL 

460 

117 

REGEL 

1010 

99 

REGEL 

470 

123 

REGEL 

1020 

55 

REGEL 

480 

97 

REGEL 

1030 

11 

REGEL. 

490 

172 




REGEL 

500 

148 




REGEL 

510 

202 





solitair 


Ook dit uitstekende denkprorgamma is van de 
hand van F. Reijsbergen. De zomermaanden zijn 
bij uitstek geschikt voor het "spelen" met dit soort 
programma’s. Een ieder kent ze wel, de solitair 
spelen. Dit programma kent echter zeer veel va¬ 
riaties. Ze variëren van moeilijk tot zeer moeilijk. 

1 rem solitaire puzzels / cbm-64 

2 rem door fons reijsbergen 

3 rem leidschendam 

4 rem 

10 poke53280,0:poke53281,0:poke53272, 

23:poke657,128 

20 s$="[SHIFT-CLR][CTRL-2]*********** 

****[SPACE]SOLITAIR[SPACE]******** 
*******" 

30 prints$"[CRSR-DOWN]Een[SPACE]beken 
d[SPACE]spe1,[SPACE]maar[SPACE]wis 
t[SPACE]j e[SPACE]dat[SPACE]er[SPAC 
E ] met" ; 

40 print"dit[SPACE]spel[SPACE]meer[SP 
ACE]puzzels[SPACE]zijn[SPACE]te[SP 
ACE]maken[SPACE]?" 

50 print"[CRSR-DOWN]Voor[SPACE]alle[S 
PACE]puzzels[SPACE]geld[SPACE]het[ 
SPACE]volgende:" 

60 print"[CRSR-DOWN]-[SPACE]Aan[SPACE 
]het[SPACE]eind[SPACE]van[SPACE]he 
t[SPACE]spel[SPACE]moet[SPACE]je[S 
PACE]een[SPACE]rondje[SPACE][O][SP 
ACE]over[SPACE]houden, [SPACE]"; 

70 print"die[SPACE]dan[SPACE]op[SPACE 
]de[3xSPACE]plaats[SPACE]moet[SPAC 
E]staan[SPACE]die[SPACE]door[SPACE 
]EIND[SPACE]OP[SPACE]aan-[SPACE]ge 
geven[SPACE]wordt." 

80 print"-[SPACE]Probeer[SPACE]bovens 
taand[SPACE]in[SPACE]z o[SPACE]min[ 
SPACE]mogelijkzetten[SPACE]te[SPAC 
E]bereiken." 

90 print"-[SPACE]Een[SPACE]zet[SPACE] 
is[SPACE]het[SPACE]verplaatsen[SPA 
CE]van[SPACE]een[4xSPACE]rondje" 

100 print"-[SPACE]Een[SPACE]rondje[SPA 
CE]kan[SPACE]verplaatst[SPACE]word 
en[SPACE]door[SPACE]over[SPACE]een 
[SPACE]ander[SPACE]heen[SPACE]te[S 
PACE]"; 

110 print"springen[SPACE]naar[SPACE]ee 
nleeg[SPACE]vakje." 

120 print"-[SPACE]Het[SPACE]rondje[SPA 
CE]waar[SPACE]overheen[SPACE]gespr 
ongen[SPACE]iswordt[SPACE]van[SPAC 
E]het[SPACE]bord[SPACE]gehaald." 

130 print"-[SPACE]E r[SPACE]mag[SPACE]a 
Heen [SPACE] horizontaal [SPACE] en [S 
PACE]vertikaalgesprongen[SPACE]wor 
den. " 

140 readaa:dimp$(aa,2),p(aa,3),o$(aa) 

150 fori=ltoaa:readp$(i,1),p(i,1),p(i, 

2),p(i,3),p$(i,2),o$(i),o$:o$(i)=o 
$(i)+o$ 

160 next:gosub900 

170 prints?"[CRSR-DOWN]Het[SPACE]intyp 
en[SPACE]van[SPACE]een[SPACE]spron 
g[SPACE]gaat[SPACE]alsvolgt" 


40 


Commodore Info 6190 






o 


- Print out - Print out - Print out - Print out - Print out 


180 prinf'Elk[SPACE]vakje[SPACE]wordt[ 
SPACE]aangegeven[SPACE]door[SPACE] 
twee[4xSPACE]tekens.[2xSPACE]Het[S 
PACE]eerste[SPACE]teken[2xSPACE]"; 
190 print"is[SPACE]de[SPACE]letter[SPA 
CE]";:print"van[SPACE]de[SPACE](ho 
rizontale)[SPACE]rij.[SPACE]Het[SP 
ACE]tweede" 

200 prinf'teken[SPACE]is[SPACE]het[SPA 
CE]nummer[SPACE]van[SPACE]de[SPACE 
] (verticale) [2xSPACE]kolom." 

210 print"[CRSR-DOWN]Geef[SPACE]eerst[ 
SPACE]het[SPACE]vak j e[SPACE]aan[SP 
ACE]waar[SPACE]het[SPACE]rondjevan 
daan[SPACE]komt[SPACE]en[SPACE]na[ 
SPACE]het"; 

220 print"[SPACE]streepje[SPACE]waar[S 
PACE]hetrondje[SPACE]heen[SPACE]mo 
et.[SPACE]Druk[SPACE]dan[SPACE]op[ 
SPACE]'RETURN'" 

230 print"Met[SPACE]de[SPACE]toets[SPA 
CE]'INSTDEL'[SPACE]kun[SPACE]je[SP 
ACE]typefouten"; 

240 print"verbeteren." 

250 print"[3xCRSR-DOWN]Dit[SPACE]progr 
amma[SPACE]heeft"aa"puzzels[SPACE] 
in[SPACE]het":print"geheugen[SPACE 
]staan." 

260 gosub900 

270 v$="[COM-A][SHIFT-*][COM-S][CRSR-D 

OWN][3xCRSR-LEFT][SHIFT--][SPACE][ 
SHIFT--][CRSR-DOWN][3xCRSR-LEFT][C 
OM Z][SHIFT-*][COM-X][2xCRSR-UP]": 
vl$="[COM-A][SHIFT-*][COM-S][CRSR- 
DOWN] [3xCRSR-LEFT][SHIFT--]O[SHIFT 
-][CRSR-DOWN][3xCRSR-LEFT][COM-Z] 
[SHIFT-*][COM-X][2xCRSR-UP]":v2$=" 
van-naar[SPACE] 

280 prints$"[2xCRSR-DOWN]":ss=5: zt=0 
290 fori=ltoaa:printitab(4)p$(i,1):nex 
t:printitab(4)"Zelf[SPACE]maken" 
300 pokel98,0 

310 printtab(4)"[CRSR-DOWN]Maak[SPACE] 
een[SPACE]keuze[SPACE]1[SPACE]-"aa 
+1;:inputi$:ifi$=""thenprint"[2xCR 
SR-UP]";:goto310 

320 ifval(i$)Clorval(i$)>aa+lthenprint 
"[2xCRSR-UP]";:goto310 
330 print"[SHIFT-CLR]":sp=val(i$):ifsp 
=aa+lthenss=2:gosub770:ss=5:goto36 
0 

340 n$=p$(sp,1):a$=p$(sp,2):ei=p(sp,l) 

:an=p(sp,2):mi=p(sp,3) 

350 fori=0to7:forj=lto7:a(i+1,j)=val(m 
id$(a$,i*7+j,1)):nextj,i 
360 ei$=chr$(int(ei/10)+192)+mid$(str$ 
(ei),3) 

370 gosub420:print:ifs=3thenprint"[CRS 
R-UP]KLAAR[2xSPACE]";:goto410 
380 ifs=-lthenprint"[CRSR-UP]GEWELDIG[ 
SPACE]HET[SPACE]IS[SPACE]GELUKT."; 

:goto410 

390 if s=0thenprint "[CRSR-UP]TOCH[SPACE 
]EEN[SPACE]GOEDE[SPACE]POGING.";:g 
oto410 

400 ifs=lthenprint"[CRSR-UP]PROBEER[SP 
ACE]HET[SPACE]NOG[SPACE]EENS 
410 print"druk[SPACE]op[SPACE]'CTRL'"; 


:wait653,4:goto280 

420 print"[SHIFT-CLR]"n$:print"[4xCRSR 
-DOWN]Zet":print"[3xCRSR-DOWN]Min" 
mi;print"[2xCRSR-DOWN]Eind[SPACE]o 
p[SPACE]"ei$ 

430 print"[3xCRSR-DOWN]S=Stop":print"[ 
CRSR-DOWN] 0=0plossing" 

440 gosub560 

450 gosub620:ifs=lors=3thenreturn 
4 60 ifvlOnlandv2<>n2thengoto550 
470 ifvl=nlthenml=vl:m2=(v2+n2)/2:ifab 
s(v2-n2)<>2then550 

480 ifv2=n2thenm2=v2:ml=(vl+nl)/2:ifab 
s(vl-nl)<>2then550 

4 90 if (a (vl, v2) <>1) or (a (nl, n2) <>0) or (a 
(ml,m2)<>1)then550 
500 zt=zt+l 

510 a(vl, v2)=0:a(nl,n2)=1:a(ml,m2)=0:a 
n=an-l:ifan=lthen530 
520 goto440 

530 gosub560:ifnl*10+n2=eithens=-l 
540 return 

550 print;print"[CRSR-UP]je[SPACE]hebt 
[SPACE]een[SPACE]fout[SPACE]gemaak 
t";:wait197,191:goto450 
560 print"[HOME][5xCRSR-DOWN][3xCRSR-R 
IGHT]"zt 

570 print"[HOME]"tab(15)"[CRSR-DOWN][S 
PACE]A[2xSPACE]B[2xSPACE]C[2xSPACE 
]D[2xSPACE]E[2xSPACE]F[2xSPACE]G": 
printtab(15); 

580 fori=lto7:forj=lto7:ifa(i,j)=2then 
print"[3xSPACE]"; 

590 ifa(i,j)=lthenprintvl$; 

600 ifa(i,j) =0thenprintv$; 

610 next:print”[CRSR-DOWN]"i:printtab( 
15)"[CRSR-DOWN]";:next:return 
620 print:poke781,23:sys59903;print"[C 
RSR-UP]"v2$;:i$="":s=0 
630 geta$:ifa$=""then630 
640 ifa$="o"thenprint"wacht";:goto920 
650 ifa$="s"thens=l:return 
660 ifa$=chr$(13)andlen(i$)=ssthen740 
670 ifa$=chr$(20)andi$<>""thenprint"[C 
RSR-LEFT][SPACE][CRSR-LEFT]";:i$=l 
eft$ (i$,len(i$)-1) :goto630 
680 if(len(i$)=lorlen(i$)=4)and(a$<"0" 
ora$>"7")then630 

690 if(len(i$)=0orlen(i$)=3)and(a$<"a" 
ora$>"g")then630 
700 iflen (i$)=ssthen630 
710 aa$=a$:ifa$>"'"theni=asc(a$)orl28: 

a$=chr$(i):aa$=mid$(str$(i-192),2) 
720 printa$;:i$=i$+aa$:iflen(i$)=2ands 
s=5theni$=i$+"-":print"; 

730 goto630 

740 i$=i$+"00" :v2=val(mid$(i$,1,1)):vl 
=val(mid$(i$,2,1)) 

750 n2=val(mid$(i$,4,1)):nl=val(mid$(i 
$,5,1)) 

760 return 

770 a(l,l)=2:a(l,2)=2:a(l,6)=2:a(l,7)= 

2:a(2,1)=2:a (2,7) =2 

780 a (7,1)=2:a (7,2)=2:a(7,6)=2:a(7,7) = 
2 : a(6, 1)=2:a(6,7)=2 
790 n$="gebruiker": an=0 :ei=44 
800 print"[SHIFT-CLR]"n$:print"[4xCRSR 
-DOWN] zet" .-print" [3xCRSR-DOWN] Geef 
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[SPACE]de[SPACE]plaats":print"aan[ 
SPACE]waar[SPACE]een" 

810 prinf'rondje[SPACE]moet":print"kom 
en[SPACE]of[SPACE]waar":print"het[ 
SPACE]rondje[SPACE]weg" 

820 print"gehaald[SPACE]moet":print"wo 
rden." 

830 print"[3xCRSR-DOWN]S=Stop" 

840 gosub560 

850 print:poke781,23:sys59903:print"[C 
RSR-UP]plaats[SPACE]:i$="":s=0: 
gosub630 

860 ifs=lthenreturn 
870 ifa (vl,v2)=2then850 

880 ifa(vl,v2)=0thena(vl,v2)=1:an=an+l 
:goto840 

890 ifa(vl,v2)=lthena(vl,v2)=0:an=an-l 
:goto840 

900 print"[CRSR-DOWN][4xSPACE]******dr 
uk[SPACE]nu[SPACE]op[SPACE]een[SPA 
CE]toets*****" 

910 waitl97,191:pokel98,0:return 
920 ifsp=17thens=0:return 
930 a$=p$(sp,2):fori=0to7:forj=lto7:a( 

i+1,j)=val(mid$(a$,i*7+j,l)):next j 

, i 

940 zt=0:forx=ltolen(o$(sp))step4:gosu 
b560 

950 v2=val(mid$(o$(sp),x,1)):vl=val(mi 
d$ (o$ (sp) , x+1, 1) ) 

960 n2=val(mid$(o$(sp),x+2,1)):nl=val( 
mid$(o$(sp),x+3,1)) 

970 ml=vl:m2=(v2+n2)/2:ifv2=n2thenm2=v 
2:ml=(vl+nl)/2 

980 a(vl, v2)=0:a(nl,n2)=1:a(ml,m2)=0:z 
t=zt+l 

990 i$=chr$(v2+192)+mid$(o$(sp),x+1,1) 
+"-"+chr$(n2+192)+mid$(o$(sp),x+3, 
1) 

1000 print:print"[CRSR-UP]"v2$i$; 

1010 rem wachtlus 
1020 next:gosub560:s=3:return 
1028 : 

1029 : 

1030 datal6,"Latijns[SPACE]kruis" 

1040 data44,6,5,22000222001002001110000 
01000000100020000022200022 
1050 data432345435333,23434244 

1059 : 

1060 data"Grieks[SPACE]kruis" 

1070 data44,9,8,22000222001002000100001 
11110000100020010022200022 
1080 data4547434564444446,2444474545434 
244 

1089 : 

1090 data"Voetbalelftal[SPACE]1" 

1100 data44,11, 10,221112220111020011100 
0010100000000020000022200022 
1110 data4222436334325153,5452315151536 
34322424244 

1119 : 

1120 data"Voetbalelftal[SPACE]2" 

1130 data44,11, 10,220002222000220000000 
0010100001110022111222211122 
1140 data4525373534365737, 3735254546444 
46456546444 

1149 : 

1150 data"Piramide[SPACE]van[SPACE]Chef 


ren" 

1160 data44,9,8,22000222200022000100000 
11100011111022000222200022 
1170 data5553533335556545,4446333525454 
644 

1179 : 

1180 data "Grafteken" 

1190 data43,15,14,220102220010020111110 
0001000000100020111022211122 
1200 data373557554565474535556545, 44464 
244634343452343464444424143 

1209 : 

1210 data"Piramide[SPACE]van[SPACE]Cheo 
ps" 

1220 data44,16,15,220002220010020011100 
0111110111111120000022200022 
1230 data343615355456755536343454545242 
4456545434,24444543335352546444 

1239 : 

1240 data"Schemerlamp" 

1250 data44,17,16,220102220111020111110 
0001000000100020111022211122 
1260 data323452545755553535333353634347 
4537353555 

1270 data555353334143444223434244 

1279 : 

1280 data"Klassiek" 

1290 data44,32,31,221112222111221111111 
1110111111111122111222211122 
1300 data464465455755545652547353436375 
7373533555153523434363636565454525 
1310 data375757555553313334325131313313 
151535363434323252525454342444 

1319 : 

1320 data"Davis-sprong" 

1330 data53,32,31,221112222111221111011 
1111111111111122111222211122 
1340 data515354525654755545653151515353 
5533531333254545434323151313333735 
3252 

1350 data525454565636737575556365654545 
25252323435737373535333353 

1359 : 

1360 data"Hoek[SPACE]naar[SPACE]hoek" 
1370 data57,36,35,220112221111121111111 

1111111111111121111122211122 
1380 data513143416242414344424644264647 
4532523432543456543133343222425232 
545213 

1390 data331434735374547555343632343735 
3436545652545755545666461535353745 
473757 

1399 : 

1400 data"Achtpuntige[SPACE]ster" 

1410 data44,29,28,220102221111120111110 
1111111011111021111122201022 
1420 data555736565755545674544446563626 
4647452426452526246664644434541434 
1430 data626464445254333554343533335341 
435333234322424244 

1439 : 

1440 data"Vijfpuntige[SPACE]ster" 

1450 data44,24,23,220102222111220111110 
1111111011111022111222200022 
14 60 data555736564446575525454644654523 
2543234543533333353515151313333331 
3151 

1470 data515353557454555363434244 
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147 9 : 

1480 data"Vijf[SPACE]kruisen" 

14 90 data44,21,20,220102220111020101010 
1111111010101020111022201022 
1500 data646644647454426262646444444241 
4324222242424444241434 
1510 data4626262424444446474566464644 

1519 : 

1520 data"Dubbel[SPACE]kruis" 

1530 data44,21,20,220102221010120011100 
1111111001110021010122201022 
1540 data545656362646355547454565745466 


1550 data745433355434353341434323143422 
242444 

1559 : 

1560 data "Vierkant" 

1570 data44,24,23,220102220111020111110 
1110111011111020111022201022 
1580 data537333534644 654545434363353333 
313151515353555557573737353515 
1590 datal51313337353745454525232323424 
44 

** EINDE LISTING solitair ** _ 


64436354746264 


REGEL 

i 

16 

REGEL 

2 

41 

REGEL 

3 

36 

REGEL 

4 

143 

REGEL 

10 

196 

REGEL 

20 

88 

REGEL 

30 

78 

REGEL 

40 

215 

REGEL 

50 

154 

REGEL 

60 

177 

REGEL 

70 

156 

REGEL 

80 

42 

REGEL 

90 

150 

REGEL 

100 

121 

REGEL 

110 

249 

REGEL 

120 

217 

REGEL 

130 

29 

REGEL 

140 

142 

REGEL 

150 

238 

REGEL 

160 

226 

REGEL 

170 

12 

REGEL 

180 

71 

REGEL 

190 

100 

REGEL 

200 

179 

REGEL 

210 

106 

REGEL 

220 

230 

REGEL 

230 

7 

REGEL 

240 

253 

REGEL 

250 

2 

REGEL 

260 

38 

REGEL 

270 

76 

REGEL 

280 

7 

REGEL 

290 

147 

REGEL 

300 

149 

REGEL 

310 

102 

REGEL 

320 

107 

REGEL 

330 

178 

REGEL 

340 

93 

REGEL 

350 

28 

REGEL 

360 

43 

REGEL 

370 

134 

REGEL 

380 

83 

REGEL 

390 

196 

REGEL 

400 

190 

REGEL 

410 

151 

REGEL 

420 

30 

REGEL 

430 

88 

REGEL 

440 

40 

REGEL 

450 

61 

REGEL 

460 

218 

REGEL 

470 

68 

REGEL 

480 

67 

REGEL 

490 

34 

REGEL 

500 

233 

REGEL 

510 

188 

REGEL 

520 

33 

REGEL 

530 

107 

REGEL 

540 

142 

REGEL 

550 

206 

REGEL 

560 

74 


Checksum 


REGEL 

570 

19 

REGEL 

580 

4 

REGEL 

590 

229 

REGEL 

600 

179 

REGEL 

610 

12 

REGEL 

620 

24 

REGEL 

630 

102 

REGEL 

640 

201 

REGEL 

650 

222 

REGEL 

660 

232 

REGEL 

670 

157 

REGEL 

680 

100 

REGEL 

690 

131 

REGEL 

700 

164 

REGEL 

710 

231 

REGEL 

720 

130 

REGEL 

730 

34 

REGEL 

740 

114 

REGEL 

750 

84 

REGEL 

760 

142 

REGEL 

770 

78 

REGEL 

780 

110 

REGEL 

790 

149 

REGEL 

800 

73 

REGEL 

810 

194 

REGEL 

820 

12 

REGEL 

830 

230 

REGEL 

840 

40 

REGEL 

850 

203 

REGEL 

860 

246 

REGEL 

870 

128 

REGEL 

880 

213 

REGEL 

890 

214 

REGEL 

900 

155 

REGEL 

910 

145 

REGEL 

920 

236 

REGEL 

930 

51 

REGEL 

940 

228 

REGEL 

950 

122 

REGEL 

960 

72 

REGEL 

970 

45 

REGEL 

980 

131 

REGEL 

990 

122 

REGEL 

1000 

149 

REGEL 

1010 

250 

REGEL 

1020 

30 

REGEL 

1028 

58 

REGEL 

1029 

58 

REGEL 

1030 

125 

REGEL 

1040 

40 

REGEL 

1050 

179 

REGEL 

1059 

58 

REGEL 

1060 

154 

REGEL 

1070 

49 

REGEL 

1080 

55 

REGEL 

1089 

58 

REGEL 

1090 

61 

REGEL 

1100 

133 

REGEL 

1110 

179 

REGEL 

1119 

58 


REGEL 

1120 

62 

REGEL 

1130 

141 

REGEL 

1140 

227 

REGEL 

1149 

58 

REGEL 

1150 

242 

REGEL 

1160 

57 

REGEL 

1170 

55 

REGEL 

1179 

58 

REGEL 

1180 

222 

REGEL 

1190 

144 

REGEL 

1200 

29 

REGEL 

1209 

58 

REGEL 

1210 

185 

REGEL 

1220 

148 

REGEL 

1230 

231 

REGEL 

1239 

58 

REGEL 

1240 

120 

REGEL 

1250 

151 

REGEL 

1260 

171 

REGEL 

1270 

87 

REGEL 

1279 

58 

REGEL 

1280 

158 

REGEL 

1290 

168 

REGEL 

1300 

161 

REGEL 

1310 

153 

REGEL 

1319 

58 

REGEL 

1320 

196 

REGEL 

1330 

168 

REGEL 

1340 

63 

REGEL 

1350 

251 

REGEL 

1359 

58 

REGEL 

1360 

183 

REGEL 

1370 

176 

REGEL 

1380 

149 

REGEL 

1390 

221 

REGEL 

1399 

58 

REGEL 

1400 

193 

REGEL 

1410 

169 

REGEL 

1420 

167 

REGEL 

1430 

47 

REGEL 

1439 

58 

REGEL 

1440 

208 

REGEL 

1450 

162 

REGEL 

1460 

69 

REGEL 

1470 

103 

REGEL 

1479 

58 

REGEL 

1480 

151 

REGEL 

1490 

145 

REGEL 

1500 

7 

REGEL 

1510 

63 

REGEL 

1519 

58 

REGEL 

1520 

131 

REGEL 

1530 

145 

REGEL 

1540 

151 

REGEL 

1550 

191 

REGEL 

1559 

58 

REGEL 

1560 

171 

REGEL 

1570 

154 

REGEL 

1580 

183 

REGEL 

1590 

24 
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- Print out - Print out - Print out - Print out - Print out 


sprong 


Bij dit programma van F. Reijsbergen draait alles 
om mannetjes en vrouwtjes. De bedoeling is om 
door middel van schuiven en springen naast elk 
mannetje een vrouwtje te zetten. En dit alles in 
zo min mogelijk beurten. Denk erom, het lijkt 
makkelijker dan het is. 

1 rem spring-sprong / cbm 64 

2 rem door fons reijsbergen 

3 rem 

4 rem 

10 gosub410:gosub250:gosub360 
20 gosubl70:gosubllO:ifw=0then20 
30 rem********win routine 
40 printt$"Geweldig![SPACE]wat[SPACE] 
zijn[SPACE]ze[SPACE]blij,[SPACE]di 
e[SPACE]figuren[SPACE]hieronder." 

50 print"[CRSR-DOWN]Het[SPACE]is[SPAC 
E]geluk[SPACE]in"t"sprongen." 

60 printp$"[7xCRSR-DOWN]Nog[SPACE]een 
[SPACE]keertje[2xSPACE](j/n)" 

70 geti$:ifi$="j"thenrun 
80 ifi$="n"thenend 
90 goto70 

100 rem*******kontrole + sprong 
110 w=0:fori=lto2:ifp(p+i)=3thenp(p+i) 
=P(P):p(p)=3:i=3:gotol30 
120 ifp(p-i)=3thenp(p-i)=p(p):p(p)=3:i 
=3 

130 next:ifi<>4thenreturn 

140 w=l:t=t+l:gosub220:fori=2tol7:ifp( 

1) <>k(i)theni=17:w=0 
150 next:return 

160 rem*******input vis zwemt 
170 geti$:pl=p:ifi$="[SPACE]"thenretur 
n 

180 ifi$="z"andp>2thenp=p-l 
190 ifi$="m"andp<16thenp=p+l 
200 printp$"[4xCRSR-DOWN]"tab(41+pl*2) 
w$p$"[4xCRSR-DOWN]"tab(41+p*2)v$:g 
otol70 

210 rem*******print poppen/score 
220 printp$tab(5);:fori=2tol7:printp$( 
p(i));:next 

230 printt$tab(17)t:return 
240 rem*******variable 
250 dimp(18),k(35) 

260 fori=2to8:p(i)=1:p(i+8)=2:next:p (9 
)=3:fori=2tol6:readk(i):next:p=9:t 
=0 

270 p$(1)="[CTRL-4][CTRL-9]AB[CRSR-DOW 
N][2xCRSR-LEFT]CD[CRSR-DOWN][2xCRS 
R-LEFT]EF[2xCRSR-UP][CTRL-0][CTRL- 

2 ] " 

280 p$(2)="[CTRL-8][CTRL-9]GH[CRSR-DOW 
N][2xCRSR-LEFT]IJ[CRSR-DOWN][2xCRS 
R-LEFT]KL[2xCRSR-UP][CTRL-0][CTRL- 
2]" 

290 p$(3)="[2xSPACE][CRSR-DOWN][2xCRSR 
-LEFT][2xSPACE][CRSR-DOWN][2xCRSR- 
LEFT][2xSPACE][2xCRSR-UP]":v$="[CT 
RL 2][CTRL-9]Q[CTRL-0]":w$="[COM-7 
][CTRL-9]P[CTRL-0][CTRL-2]" 

300 t$="[HOME][7xCRSR-DOWN]":p$=t$+"[9 
xCRSR-DOWN]" 

310 return 


320 rem*******print titel 
330 print"[SHIFT-CLR][CTRL-2][7xSPACE] 
S[SPACE]P[SPACE]R[SPACE]I[SPACE]N[ 
SPACE]G[SPACE]-[SPACE]S[SPACE]P[SP 
ACE]R[SPACE]O[SPACE]N[SPACE]G" 

340 print"[CTRL-6][6xSPACE][27xSHIFT-* 
]":return 

350 rem*******print speelscherm 
360 gosub330:printt$"[COM-6]Aantal[SPA 
CE]sprongen[SPACE]:" 

370 printp$"[3xCRSR-DOWN][COM-7][CTRL- 
9]OOOOO[COM-1]"; 

380 fori=ltol5:print"MN";:next:print"[ 
COM-7]OOOOO";:fori=lto80:print"P"; 

: next 

390 printp$"[4xCRSR-DOWN]"tab(41+p*2)v 
$:gosub220:return 
400 rem*******uitleg 

410 poke53272,22:poke53280,0:poke53281 
,0:poke657,128:gosub330 
420 print"[COM-6][CRSR-DOWN]De[SPACE]b 
edoeling[SPACE]is[2xSPACE]dat[SPAC 
E]de[SPACE]7[SPACEJmannetjes[SPACE 
]elk[SPACE]een[SPACE]vrouwtje[SPAC 
E]krijgen." 

430 print"Natuurlijk[SPACE]willen[SPAC 
E]de[SPACE]mannet jes[SPACE]en[SPAC 
E]vrouw-"; 

440 print"tjes[SPACE]zo[SPACE]snel[SPA 
CE]mogelij k[SPACE]een[SPACE]partne 
r. " 

450 print"[CRSR-DOWN]Om[SPACE]dat[SPAC 
E]te[SPACE]doen[2xSPACE]kan[SPACE] 
de[SPACE]man[SPACE]of[SPACE]vrouw[ 
SPACE]die" 

460 print"naast[SPACE]een[SPACE]lege[S 
PACE]steen[SPACE]staat[SPACE]een[S 
PACE]plaatsje[SPACE]opschuiven." 

470 print"Ook[SPACE]kan[SPACE]een[SPAC 
E]man[SPACE]of[SPACE]vrouw[SPACE]o 
ver[SPACE]een[SPACE]ander" 

480 print"heen[SPACE]springen[SPACE]al 
s[SPACE]er[SPACE]naast[SPACE]die[S 
PACE]ander[SPACE]'n[SPACE]s t een[SP 
ACE]vrij[SPACE]is." 

490 print"[CRSR-DOWN]Het[SPACE]visje[S 
PACE]wij st[SPACE]aan[2xSPACE]welke 
[SPACE]man[SPACE]of[SPACE]vrouw" 

500 print"de[SPACE]sprong[SPACE]gaat[S 
PACE]maken." 

510 print"het[SPACE]visje[SPACE]is[SPA 
CE]te[SPACE]besturen[SPACE]met[SPA 
CE]de[SPACE]toetsen[2xSPACE][CTRL- 
6]Z[COM-6][SPACE]en[SPACE][CTRL-6] 

M[COM-6],[SPACE]met[SPACE]een[SPAC 
E] " ; 

520 print"druk[2xSPACE]op[SPACE]de[SPA 
CE][CTRL-6]SPATIEBALK[COM-6][SPACE 
]wordt[SPACE]de[SPACE]sprong[SPACE 
]een[SPACE]feit." 

530 print"[CRSR-DOWN][SPACE]De[SPACE]1 
inker[SPACE]steen[SPACE]is[SPACE]o 
p[SPACE]het[SPACE]einde[SPACE]leeg 

H 

540 print"De[SPACE]volgorde[SPACE]moet 
[SPACE]zijn[SPACE]man -vrouw-man-et 
c. " 

550 gosub590:print"[CTRL-2][10xSPACE]D 
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j 
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RUK[SPACE]OP[SPACE]EEN[SPACE]TOETS 
[SPACE]!!!";:pokel98,0 
560 geti$:ifi$=""then560 
570 :print"[SHIFT-CLR]":poke53272, 30:r 

et urn 

580 rem*******verp3. .progr.mc/lees data 

590 fori=49152to49204:reada:pokei, a:ne 
xt:sys4 9152 

600 fori=15880tol6015:reada:pokei,a:ne 
xt 

610 return 

620 rem-verpl data 

630 datal69,0,141,14,220,169,51, 133,1, 
169,0,133,251,133,253,169,48,133 
640 data252,169,208,133,254,160,0,177, 
253,145,251,200,208,249,230,254 
650 data230,252,169,80,197,252,208,239 
,169,55,133,1,169,1,141,14,220, 96, 
234 

660 rem-kar. data 

67 0 dataO, 0,0,3,7,7,7,3, 0,0,0, 128, 192, 
192,192,128 

680 datal,31,31,23,19,17,23,23,0,240,2 
40,208,144,16,208,208 
690 data51,50,2,2,2,6,14,14,152,152,12 

8.128.128.192.224.224 

700 dataO,0,0,3,7,7,15,11,0,0,0,128,19 
2,192,224,160 

710 datal,15,15,11,9,11, 15, 31,0,224,22 
4,160,32,160,224,240 
720 data7,7,2,2,2,2,6,14,192,192,128,1 

28.128.128.192.224 

730 dataO,31,15,63,63,127,120,0,0,240, 
252,252,254,255,102,0,0,0,0,0,0 
740 datall7,142,0,117,142,0,0,142,117, 
0,0,24,68,94,125,127,94,68,24 
750 data3,1,2,1,2,1,2,1,2,1,2,1,2,1,2 
760 :******klaar met het typewerk***** 

★ * 


** EINDE LISTING sprong 


wormy 


Ryan van Hattum is de maker van dit spel. Het is 
een heel oud gegeven, een slang moet sterretjes 
op eten en wordt daardoor steeds langer. Hier¬ 
door wordt het steeds moeilijker om goed en snel 
te reageren. Echt een spelletje om niet bij te hoe¬ 
ven nadenken, ontspannend dus. 

80 rem"[7xDEL][SPACE]wormy 
90 rem"[7xDEL] 

100 poke53280,0:poke53281, 0:clr 
110 poke808,234 

120 print"[SHIFT-CLR][CTRL-2]een[SPACE 
]moment..." 

130 dimhi$(5),hi(5),s (1100) 

140 rem hi-score loader... 

150 open2,8,2:close2 
160 ifst=-128thengoto850 

170 openl,8,0,"hi-score[2xSPACE]/wormy,u, r" 

180 fora=lto5:input#l,hi$(a):nexta 
190 fora=lto5:input#l, hi(a) :nexta 
200 closel 


Checksum sprong 


REGEL 

1 

211 

REGEL 

390 

59 

REGEL 

2 

41 

REGEL 

400 

127 

REGEL 

3 

36 

REGEL 

410 

32 

REGEL 

4 

143 

REGEL 

420 

101 

REGEL 

10 

224 

REGEL 

430 

253 

REGEL 

20 

133 

REGEL 

440 

98 

REGEL 

30 

243 

REGEL 

450 

235 

REGEL 

40 

1 

REGEL 

460 

163 

REGEL 

50 

44 

REGEL 

470 

138 

REGEL 

60 

38 

REGEL 

480 

134 

REGEL 

70 

177 

REGEL 

490 

189 

REGEL 

80 

99 

REGEL 

500 

246 

REGEL 

90 

240 

REGEL 

510 

58 

REGEL 

100 

39 

REGEL 

520 

242 

REGEL 

110 

129 

REGEL 

530 

7 

REGEL 

120 

252 

REGEL 

540 

164 

REGEL 

130 

93 

REGEL 

550 

240 

REGEL 

140 

109 

REGEL 

560 

120 

REGEL 

150 

74 

REGEL 

570 

213 

REGEL 

160 

206 

REGEL 

580 

38 

REGEL 

170 

40 

REGEL 

590 

74 

REGEL 

180 

255 

REGEL 

600 

104 

REGEL 

190 

40 

REGEL 

610 

142 

REGEL 

200 

36 

REGEL 

620 

109 

REGEL 

210 

191 

REGEL 

630 

111 

REGEL 

220 

182 

REGEL 

640 

73 

REGEL 

230 

97 

REGEL 

650 

125 

REGEL 

240 

251 

REGEL 

660 

240 

REGEL 

250 

192 

REGEL 

670 

76 

REGEL 

260 

106 

REGEL 

680 

59 

REGEL 

270 

129 

REGEL 

690 

69 

REGEL 

280 

165 

REGEL 

700 

162 

REGEL 

290 

136 

REGEL 

710 

252 

REGEL 

300 

87 

REGEL 

720 

192 

REGEL 

310 

142 

REGEL 

730 

254 

REGEL 

320 

196 

REGEL 

740 

207 

REGEL 

330 

78 

REGEL 

750 

211 

REGEL 

340 

3 

REGEL 

760 

16 

REGEL 

350 

125 




REGEL 

360 

34 




REGEL 

370 

247 




REGEL 

380 

40 





210 openl5,8,15:input#15, e:closel5 
220 ife<>0thengoto850 
230 goto960 
240 sc=0:poke646,12 

250 print"[SHIFT-CLR][CTRL-4]"tab(14)" 
***[SPACE]wormy[SPACE]***[CTRL-8]" 

:a=rnd(0) 

260 poke53280,0:poke53281,0:fori=0tol9 

:pokel083-i,160:pokel084+i,160:nexti 
270 fori=0to21:pokell04+i*40,160:pokel 
143+i*40,160:nexti 

280 fori=0tol9:pokel984+i,160:poke2023 
-i,160:nexti 

290 wh=292:wt=wh:d=l:pokewh+1024,81:s( 

wh)=d:gosub540:gosub560 
300 qy=peek(56320)andl6 
310 ifqy=0thengosub810 
320 q=peek(56320)andl5 
330 ifq=llthend=-l 
340 ifq=7thend=l 
350 ifq=14thend=-40 
360 ifq=13thend=40 
370 ifq=10thend=-41 
380 ifq=6thend=-39 
390 ifq=9thend=7 9 
400 ifq=5thend=81 
410 ifd=-dlthendl=d 
420 s(wh)=d:wh=wh+d 

430 ifpeek(wh+1024)=90thensc=sc+10:gos 
ub560:gosub540:1=5:goto450:gosub560 
440 ifpeek(wh+1024)<>32then490 
450 pokewh+1024,81:iflthenl=l-l:goto480 
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m 1 

Print out - 

Print out - 

Print out - 

Print out - 

Print out 


O 

O 
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o 

o 
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o 

o 

o 
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o 
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460 pokewt+1024,32:wt=wt+s(wt) 

470 gosub560 
480 goto300 

490 p=peek(wh+1024):pokewh+1024,86:pok 
e55296+wh,1 
500 gosub620 
510 q=peek(56320)andl6 
520 ifq=0then720 
530 goto510 

540 r=int(rnd(l)*960)+1064:ifpeek(r)<> 
32then540 

550 poker,90:return 

560 printchr$(19)"score:[SPACE]"sc:return 
570 gotoll30 

580 poke53280,15: fora=0tol00 :nexta 
590 qy=peek(56320)andl6 
600 ifqy<>0then590 
610 poke53280,0:return 

620 print"[HOME][12xCRSR-D0WN][16xCRSR 
-RIGHT] [CTRL-1]game[SPACE]ove r" 

630 print"[HOME][12xCRSR-D0WN][16xCRSR 
-RIGHT][COM-4]game[SPACE]over" 

640 fora=0to50:nexta 

650 print"[HOME][12xCRSR-D0WN][16xCRSR 
-RIGHT][COM-5]game[SPACE]over" 

660 fora=0to50:nexta 

670 print"[HOME][12xCRSR-D0WN][16xCRSR 
-RIGHT][COM-8]game[SPACE]over" 

680 fora=0to50:nexta 

690 print"[HOME][12xCRSR-D0WN][16xCRSR 
-RIGHT][CTRL-2]game[SPACE]over" 

700 fora=0to50:nexta 
710 return 

720 print"[HOME][12xCRSR-DOWN][16xCRSR 
-RIGHT][CTRL-2]game[SPACE]over" 

730 fora=0to50:nexta 

740 print"[HOME][12xCRSR-DOWN][16xCRSR 
-RIGHT][COM-5]game[SPACE]over" 

750 fora=0to50:nexta 

760 print"[HOME][12xCRSR-D0WN][16xCRSR 
-RIGHT][COM-4]game[SPACE]over" 

770 fora=0to50:nexta 

780 print"[HOME][12xCRSR-DOWN][16xCRSR 
-RIGHT][CTRL-1]game[SPACE]over" 

790 fora=0to50:nexta 
800 goto570 

810 poke53280,15:fora=0to250:nexta 
820 qy=peek(56320)andl6 
830 ifqy<>0then820 
840 poke53280,0:return 

850 hi$(l)=".wormy!." 

860 hi(1)=250 

870 hi$(2)="...geschreven " 

880 hi(2)=200 

890 hi$(3)=".voor." 

900 hi(3)=150 

910 hi$(4)="..c=info..door.." 

920 hi(4)=100 

930 hi$(5)=".tonnie[SPACE]en[SPACE]ryan." 

940 hi(5)=50 

950 goto230 

960 rem beginbeeld 

970 print"[SHIFT-CLR]"chr$(142)chr$(8) 

980 print"[2xCRSR-DOWN][COM-6][14xSPAC 
E]***[SPACE]wormy[SPACE]***" 

990 print"[COM-8][2xCRSR-D0WN][2xSPACE 
]geschreven[SPACE]door:[SPACE]ryan 
[SPACE]van[SPACE]hattum[SPACE]en" 


1000 print"[14xSPACE]tonnie[SPACE]faber!" 

1010 print"[2xCRSR-DOWN] [COM-6] [2xSPACE 
]om[SPACE]te[SPACE]beginnen[SPACE] 
druk[SPACE]op[SPACE]de[SPACE]vuurknop.."I 
1020 fora=lto500 
1030 b=peek (56320) andl6 
1040 ifb=0thengoto240 
1050 nexta 

1060 print"[SHIFT-CLR] [3xCRSR-DOWN] [COM 
6][llxSPACE]***[SPACE]hi-scores[S 
PACE]***" 

1070 print" [2xCRSR-DOWN] [COM-8] " 

1080 fora=lto5:print"[4xSPACE]"a"[SPACE 
]» [SPACE] "hi$ (a) " [SPACE] « [SPACE] 

"hi(a):nexta 
1090 fora=lto500 
1100 b=peek (56320) andl6 
1110ifb=0then240 
1120 nexta: goto960 

1130 rem hi-score gehaald ja/nee? 

1140 ifsc<=hi(5)orsc=hi(4)orsc=hi(3)ors 
c=hi(2)orsc=hi(1)thengoto230 
1150 print"[SHIFT-CLR] [CRSR-DOWN] [CTRL- 
8][2xSPACE]u[SPACE]heeft[SPACE]een 
[SPACE]hi-score[SPACE]plaats[SPACE 
]behaald!" 

1160 print"[2xCRSR-DOWN] [COM-3]type[SPA 
CE]een[SPACE]naam[SPACE]»[SPACE]" 

;:pokel9,1:inputa$:pokel9, 0 
1170 iflen(a$)>16thena$=left$(a$,16) :go 
tol200 

1180 a=(16-len(a$)) :forb=ltoa 

1190 a$=a$ + "[SPACE]":nextb 

1200 ifsOhi (5) andscChi (4) thenhi (5) =sc: 

hi$(5)=a$:gotol330 
1210 r=0 

1220 ifsc>hi(4)andsc<hi(3)thenhi$(5)=hi 

$(4):hi(5)=hi(4):hi$(4)=a$:hi(4)=s I 

c: r=l 

1230ifr=0thengotol250 
1240 gotol330 

1250 ifsc>hi(3)andsc<hi(2)thenhi$(5)=hi 
$(4):hi(5)=hi(4):hi$(4)=hi$(3):r=l 
1260 ifr=0thengotol280 

1270 hi (4) =hi (3) :hi$ (3) =a$ :hi (3) =sc: got 
ol330 

1280 ifsc>hi(2)andsc<hi(1)thenhi$(5)=hi 
$(4) :hi(5)=hi(4) :hi$(4)=hi$ (3) :r=l 
1290 ifr=0thengotol310 

1300 hi(4)=hi(3) :hi$(3)=hi$(2) :hi(3)=hi 
(2):hi$(2)=a$:hi(2)=sc:gotol330 
1310 hi$(5)=hi$(4) :hi(5)=hi(4) :hi$(4)=h 
i$ (3) :hi(4)=hi(3) :hi$(3)=hi$(2) 

1320 hi(3)=hi(2) :hi$(2)=hi$(1) :hi(2)=hi 

(1) : hi$ (1) =a$ : hi (1) =sc I 

1330 printchr$(13)"[2xCRSR-DOWN] [COM-5] 
save[SPACE]hi-score?[SPACE](j/n)" 

1340 pokel98,0 

1350 geta$ : ifa$<>" j "anda$O"n"thenl350 
1360 ifa$="n"thengotol060 I 

1370 open2,8,2: close2 
1380ifst=-128thenl460 

1390 openl,8,1,"'0:hi-score[2xSPACE]/wo I 

rmy,u,w" j 

1400 fora=lto5:print#l,hi$(a) :nexta 1 

1410 fora=lto5 :print#l, hi (a) .-nexta 
1420 closel 

1430 openl5,8,15:input#15,e:closel5 I 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 
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E 

Print out - Print out - 

Print out - 

Print out - 

Print out 


1440ife<>0thengotol460 
1450 gotol060 

1460 print"[2xCRSR-DOWN] [CTRL-2]disk[SP 
ACE]error![SPACE](druk[SPACE]op[SP 
ACE]de[SPACE]vuurknop)" 

1470 b=peek(56320)andl6:ifb<>0thenl470 
1480 gotol060 

** EINDE LISTING wormy ** _ 


Checksum wormy 


REGEL 

80 

219 

REGEL 

810 

65 

REGEL 

90 

61 

REGEL 

820 

133 

REGEL 

100 

251 

REGEL 

830 

10 

REGEL 

110 

252 

REGEL 

840 

189 

REGEL 

120 

167 

REGEL 

850 

184 

REGEL 

130 

150 

REGEL 

860 

92 

REGEL 

140 

10 

REGEL 

870 

44 

REGEL 

150 

159 

REGEL 

880 

88 

REGEL 

160 

247 

REGEL 

890 

157 

REGEL 

170 

6 

REGEL 

900 

93 

REGEL 

180 

221 

REGEL 

910 

36 

REGEL 

190 

185 

REGEL 

920 

89 

REGEL 

200 

209 

REGEL 

930 

39 

REGEL 

210 

208 

REGEL 

940 

46 

REGEL 

220 

49 

REGEL 

950 

30 

REGEL 

230 

40 

REGEL 

960 

80 

REGEL 

240 

120 

REGEL 

970 

111 

REGEL 

25C 

37 

REGEL 

980 

50 

REGEL 

260 

198 

REGEL 

990 

119 

REGEL 

270 

117 

REGEL 

1000 

43 

REGEL 

280 

107 

REGEL 

1010 

87 

REGEL 

290 

48 

REGEL 

1020 

222 

REGEL 

300 

133 

REGEL 

1030 

29 

REGEL 

310 

228 

REGEL 

1040 

117 

REGEL 

320 

43 

REGEL 

1050 

195 

REGEL 

330 

105 

REGEL 

1060 

197 

REGEL 

340 

147 

REGEL 

1070 

154 

REGEL 

350 

159 

REGEL 

1080 

185 

REGEL 

360 

243 

REGEL 

1090 

222 

REGEL 

370 

156 

REGEL 

1100 

29 

REGEL 

380 

120 

REGEL 

1110 

236 

REGEL 

390 

212 

REGEL 

1120 

37 

REGEL 

400 

201 

REGEL 

1130 

128 

REGEL 

410 

179 

REGEL 

1140 

148 

REGEL 

420 

81 

REGEL 

1150 

185 

REGEL 

430 

70 

REGEL 

1160 

214 

REGEL 

440 

187 

REGEL 

1170 

113 

REGEL 

450 

121 

REGEL 

1180 

148 

REGEL 

460 

127 

REGEL 

1190 

104 

REGEL 

470 

40 

REGEL 

1200 

19 

REGEL 

480 

28 

REGEL 

1210 

52 

REGEL 

4 90 

34 

REGEL 

1220 

110 

REGEL 

500 

37 

REGEL 

1230 

183 

REGEL 

510 

44 

REGEL 

1240 

80 

REGEL 

520 

254 

REGEL 

1250 

168 

REGEL 

530 

31 

REGEL 

1260 

186 

REGEL 

540 

58 

REGEL 

1270 

136 

REGEL 

550 

70 

REGEL 

1280 

166 

REGEL 

560 

115 

REGEL 

1290 

180 

REGEL 

570 

78 

REGEL 

1300 

248 

REGEL 

580 

59 

REGEL 

1310 

19 

REGEL 

590 

133 

REGEL 

1320 

102 

REGEL 

600 

14 

REGEL 

1330 

211 

REGEL 

610 

189 

REGEL 

1340 

149 

REGEL 

620 

114 

REGEL 

1350 

156 

REGEL 

630 

121 

REGEL 

1360 

43 

REGEL 

640 

170 

REGEL 

1370 

159 

REGEL 

650 

122 

REGEL 

1380 

156 

REGEL 

660 

170 

REGEL 

1390 

182 

REGEL 

670 

125 

REGEL 

1400 

241 

REGEL 

680 

170 

REGEL 

1410 

205 

REGEL 

690 

231 

REGEL 

1420 

209 

REGEL 

700 

170 

REGEL 

1430 

208 

REGEL 

710 

142 

REGEL 

1440 

95 

REGEL 

720 

231 

REGEL 

1450 

80 

REGEL 

730 

170 

REGEL 

1460 

19 

REGEL 

740 

122 

REGEL 

1470 

43 

REGEL 

750 

170 

REGEL 

1480 

8 

REGEL 

760 

121 




REGEL 

770 

170 




REGEL 

780 

114 




REGEL 

790 

170 




REGEL 

800 

37 





beveilig 


Er wordt ons vaak gevraagd of het mogelijk is 
basic programma’s te beveiligen. Echt beveiligen 
is niet mogelijk, een goede programmeur kan dit 
altijd omzeilen. Om een listing wat moeiiijker 
leesbaar te maken zijn er verschillende mogelijk¬ 
heden. Denk maar eens aan het manipuleren met 
kleuren, voorgrond gelijk aan de achtergrond 
kleur. Verschiliende poke opdrachten werken 
ook, maar eenvoudiger gaat het met het volgen¬ 
de programma van Marco Paauwe. 

10 fori=4 9730to4 988 6:reada:b=b+a:poke 
i,a:next 

20 ifb<>22263thenprint"fout[SPACE]in[ 
SPACE]data":end 

30 print"[SHIFT-CLR]laadt[SPACE]nu[SP 
ACE] het [SPACE] basic [SPACE] programm 
a[SPACE]in[SPACE]dat[SPACE]" 

40 print"dat[SPACE]beveiligt[SPACE]mo 
et[SPACE]worden[SPACE]en[SPACE]bev 
eilig[SPACE]" 

50 prinf'met[SPACE]sys49730" 

60 print"[CRSR-DOWN]waarschuwing[SPAC 
E]eenmaal[SPACE]beveiligd[SPACE]ku 
n[SPACE]je" 

70 print"het[SPACE]programma[SPACE]ni 
et[SPACE]terug[SPACE]veranderen" 

80 print"na[SPACE]het[SPACE]beveilige 

n[SPACE]wegsaven" 

1000 datal60,0,165,45,133,171,165,4 6,13 
3, 172 

1001 datal65,55,133,169,165,56,133,170, 

198.171 

1002 datal65,171,201,255,208,2,198,172, 
198,169 

1003 datal65,169,201,255,208,2,198,170, 

177.171 

1004 datal45,169,165,171,197,43, 165,172 
,229,44 

1005 datal7 6,222,160,1,177,169, 200, 17, 1 
69,240 

1006 data67,160,0,177,169,145, 171,200, 1 
92,5 

1007 data208,24 7,165, 171,24,105,5,133,1 
71,144 

1008 data2,230,172,160,0,152,145,171,20 
0, 169 

100 9 data58,192,5,208,247,177,169,240, 6 
, 145 

1010 datal71,200,76,161,194,152,24, 101, 

169.133 

1011 datal69,144,2,230, 170,152,24,101, 1 

71.133 

1012 datal71,144,185,230,172, 76, 118,194 
,160,0 

1013 datal52,145,171,200, 192,3, 208,24 9, 
152,24 

1014 datalOl,171,133,45,165,172, 105, 0, 1 
33, 46 

1015 data7 6,171,225, 96, 96, 165, 142 

** EINDE LISTING beveilig ** _ 


O 

o 

o 
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o 
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o 
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o 

o 

o 
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Checksum beveilig 


REGEL 

10 

218 

REGEL 

1006 

24 

REGEL 

20 

93 

REGEL 

1007 

117 

REGEL 

30 

210 

REGEL 

1008 

52 

REGEL 

40 

47 

REGEL 

1009 

41 

REGEL 

50 

201 

REGEL 

1010 

164 

REGEL 

60 

124 

REGEL 

1011 

103 

REGEL 

70 

5 

REGEL 

1012 

122 

REGEL 

80 

135 

REGEL 

1013 

114 

REGEL 

1000 

66 

REGEL 

1014 

55 

REGEL 

1001 

189 

REGEL 

1015 

5 

REGEL 

1002 

189 




REGEL 

1003 

184 




REGEL 

1004 

193 




REGEL 

1005 

122 





Checksum kleur 


REGEL 

100 

26 

REGEL 

240 

61 

REGEL 

110 

155 

REGEL 

250 

31 

REGEL 

120 

227 

REGEL 

260 

124 

REGEL 

130 

227 

REGEL 

270 

181 

REGEL 

140 

217 

REGEL 

280 

189 

REGEL 

150 

58 

REGEL 

290 

83 

REGEL 

160 

19 

REGEL 

300 

194 

REGEL 

170 

33 

REGEL 

310 

194 

REGEL 

180 

162 




REGEL 

190 

36 




REGEL 

200 

48 




REGEL 

210 

146 




REGEL 

220 

160 




REGEL 

230 

56 





O 

O 

o 

o 


kleur 


Van Joris van den Heuvel en Hanno Krijgsman 
kregen wij het programma Schermkleur. Met dit 
programma kan men de border- de scherm en de 
cursorkleur blijvend veranderen. Dat wil zeggen, 
elke keer dat READY verschijnt, worden de 
kleuren terug gezet, die u heeft ingevoerd. Dit is 
zeer bruikbaar voor de mensen die ’s avonds 
lang voor het scherm zitten. Als u nu rustige kleu¬ 
ren ingeeft, heeft dat veel voordelen voor de 
ogen. Een tip: zeer rustige stabiele kleuren zijn: 
border: donkergrijs (11), scherm : donkergrijs 
(11), cursor: Licht grijs (15). 


O 

o 

o 

o 

o 

o 

o 

o 

o 


100 rem scherm-kleur / c=64 
110 rem 
120 rem 

130 rem Joris van den Heuvel 
140 rem 
150 : 

160 fort=0to45:reada:b=b+a:poke53200+t 
, a:next 

170 ifb<>5480thenprint"[SHIFT-CLR][CRS 
R-DOWN][CRSR-RIGHT]fout[SPACE]in[S 
PACE]data[SPACE]!":stop 
180 input"[SHIFT-CLR][CRSR-DOWN][CRSR- 
RIGHT] -border-kleur[SPACE]";b 
190 input"[CRSR-DOWN][CRSR-RIGHT]-sche 
rm-kleur[SPACE]";s 

200 input"[CRSR-DOWN][CRSR-RIGHT]-curs 
or-kleur[SPACE]";c 

210 poke53230,b:poke53235,s:poke53240, 
c 

220 print"[7xCRSR-DOWN]run/stop[SPACE] 
+[SPACE]restore[2xSPACE]zet[SPACE] 
de[SPACE]kleuren[SPACE]niet[SPACE] 
meer[SPACE]terug!" 

230 print"[CRSR-DOWN]na[SPACE]reset[SP 
ACE]weer[SPACE]inschakelen[SPACE]m 
et[SPACE]sys53210" 

240 gett$:ift$<>""thensys53200 
250 goto240 

260 data 173,2,3,201,237,240,19,141 
270 data 253,207,173,3,3,141,254,207 
280 data 169,237,141,2,3,169,207,141 
290 data 3,3,76,102,254,169,14,141 
300 data 32,208,169,6,141,33,208,169 
310 data 14,141,134,2,76,59,223 

** EINDE LISTING kleur ** 


O 
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PRINT OUT C-128 met o.a. Hannoi 


lucifer 


Spelen waarbij moet worden nagedacht blijven 
het goed doen. Bij dit spel is diegene die de laat¬ 
ste lucifer pakt de verliezer. Er mogen er per 
beurt 1,2 of 3 worden opgepakt. Dus veel spelen 
en blijven opletten om het geheim van winst te 
ontdekken. 

100 rem *** lucifer-spel 
110 poke53280,0:poke53281,0:x=21:print 
chr$(142)chr$(11)"[SHIFT-CLR][CTRL 
6]wie[SPACE]begint[SPACE]er[SPACE]"; 
120 pc=int (rnd(1) *3) +1 .-print" (computer 
/speler)[SPACE]??":1$="[CTRL-3]Q[C 
RSR-DOWN][CRSR-LEFT][CTRL-8][SHIFT 
-][CRSR-DOWN][CRSR-LEFT][SHIFT—] 
[CRSR-DOWN][CRSR-LEFT][SHIFT—][CR 
SR-DOWN][CRSR-LEFT][SHIFT--][4xCRSR- 
UP] " 

130 gosub500:ifa$="c"then210 
140 ifa$<>"s"thenl30 

150 print"[SHIFT-CLR]:fort=ltox:prin 
tl$;:nextt:print"[6xCRSR-DOWN]":pr 
int"[CTRL-6]aantal[SPACE]lucifers:";x 
160 ifx=lthenprint"[CRSR-DOWN]jij[SPAC 
E]moet[SPACE]er[SPACE]1[SPACE]neme 
n,":print"ik[SPACE]heb[SPACE]gewon 
nen[SPACE]!!":goto270 
170 print"[CRSR-DOWN]hoeveel[SPACE]nee 
m[SPACE]je[SPACE]??[SPACE] 

180 gosub500:pc=val(a$):ifpc<lorpc>3or 
pc=>xthenl80 

190 pc=int(pc):printa$:x=x-pc:print"[C 
RSR-DOWN]nu[SPACE]nog[SPACE]over:" 

;x:pc=int(rnd(ti)*3)+1 
200 print"[HOME][24xCRSR-DOWN]druk[SPA 
CE]op[SPACE]een[SPACE]t oet s. [HOME] 

":gosub500 

210 print"[SHIFT-CLR]";:fort=ltox:prin 
tl$;:nextt:print"[6xCRSR-DOWN]":pr 
int"[CTRL-6]aantal[SPACE]lucifers:";x 
220 ifx=lthenprint"[CRSR-DOWN]ik[SPACE 
]moet[SPACE]er[SPACE]1[SPACE]nemen 
,":print"jij[SPACE]hebt[SPACE]gewo 
nnen[SPACE]!!":goto270 
230 ifx<18thenfort=0to2:if(x+t)/4=int( 
(x+t)/4)thenpc=3-t:goto250 
240 ifx<18thennextt 

250 print"[CRSR-DOWN]ik[SPACE]neem [SPA 
CE] er" ; pc : x=x-pc .-print" [CRSR-DOWN] 
nu[SPACE]nog[SPACE]over:";x 
260 print"[HOME][24xCRSR-DOWN]druk[SPA 
CE]op[SPACE]een[SPACE]toets.[HOME] 

":gosub500:gotol50 

270 print"[HOME][24xCRSR-DOWN]druk[SPA 
CE]op[SPACE]een[SPACE]toet s. [HOME] 

":gosub500 

280 print"[SHIFT-CLR]nog[SPACE]een[SPA 
CE]keer[SPACE](ja/nee)[SPACE]??" 

290 gosub500:ifa$="j"thenrun 
300 ifa$O"n"then2 90 
310 print"[SHIFT-CLR]":end 
320 : 

500 rem *** druk op een toets 
510 geta$:ifa$<>""thenreturn 
520 goto510 

** EINDE LISTING lucifer ** 


Checksum Lucifer 


REGEL 

100 

120 

REGEL 

250 

158 

REGEL 

110 

45 

REGEL 

260 

186 

REGEL 

120 

44 

REGEL 

270 

97 

REGEL 

130 

191 

REGEL 

280 

180 

REGEL 

140 

38 

REGEL 

290 

189 

REGEL 

150 

180 

REGEL 

300 

40 

REGEL 

160 

77 

REGEL 

310 

42 

REGEL 

170 

99 

REGEL 

320 

58 

REGEL 

180 

189 

REGEL 

500 

73 

REGEL 

190 

144 

REGEL 

510 

13 

REGEL 

200 

97 

REGEL 

520 

31 

REGEL 

210 

180 




REGEL 

220 

161 




REGEL 

230 

56 




REGEL 

240 

124 





hannoi 


De toren van Hannoi okk al zo een oud spel. Dit¬ 
maal bewerkt voor onze trouwe commodore 64. 
Het spel bestaat uit een stapel schijven in aflo¬ 
pende grootte. De bedoeling is om in zo min mo¬ 
gelijk beurten de toren over te stapelen, waarbij 
slechts een hulppositie mag worden gebruikt en 
de nieuwe schijf moet kleiner zijn dan de schijf 
welke er al ligt. Let erop want een (klein) foutje is 
zo gemaakt. 

10 colorO,12:color4,12:graphicO,1:win 
dowO,0,39,24:print"[SHIFT-CLR][COM 
6]s[SPACE]p[SPACE]e[SPACE]1[SPACE 
]r[SPACE]e[SPACE]g[SPACE]e[SPACE]1 
[SPACE]s" 

20 print"[19xCOM-T][CTRL-6]":print"he 
t[SPACE]is[SPACE]de[SPACE]bedoelin 
g[SPACE]om[SPACE]een[SPACE]aantal[ 
SPACE](4-12) 

3 0 print"ringen[SPACE]van[SPACE]paal[ 

SPACE]1[SPACE]naar[SPACE]paal[SPAC 
E]3[SPACE]te[SPACE]brengen":print" 
op[SPACE]de[SPACE]volgende[SPACE]m 
anier: 

40 print"[CRSR-DOWN][COM-6]*[CTRL-6][ 
SPACE]er[SPACE]kan[SPACE]slechts[S 
PACE]een[SPACE]ring[SPACE]per[SPAC 
E]keer":print"[2xSPACE]verplaatst [ 
SPACE]worden; 

50 print"[COM-6]*[CTRL-6][SPACE]verpl 
aatsen[SPACE]kan[SPACE]alleen[SPAC 
E]naar[SPACE]een":print"[2xSPACE]a 
ndere[SPACE]paal[SPACE]waar[SPACE] 
geen[SPACE]"; 

60 print"of[SPACE]een[SPACE]kleinere" 

:print"[2xSPACE]ring[SPACE]als[SPA 
CE]bovenste[SPACE]zit.[CRSR-DOWN]" 

7 0 print"veel[SPACE]plezier[SPACE]met 
[SPACE]het[SPACE]spel[SPACE]!!":pr 
int"[CRSR-DOWN]druk[SPACE]op[SPACE 
]een[SPACE]toets.":getkeya$ 

80 print"[SHIFT-CLR][CTRL-6]hoogte[SP 
ACE](4-12)[SPACE]?[SPACE][COM-6][C 
OM ' ] [CRSR-LEFT]"; :do:getkeya$:ifa 
$<"l"ora$>"9"thenloop 
90 ifa$="2"ora$="3"thenloop:elseprint 

a$"[COM-'][CRSR-LEFT]";:ifa$>"3"th 
enho=val(a$) :gotoll0 
100 getkeyb$ .-ho=val (a$+b$) :ifho>12orho 
ClOthenlOO:elseprintb$ ; 
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o 


- 

Print out -1 
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110 print"[SPACE]":dima(3,ho+1),a$(ho) 

,b(3) :fort=lto3: a (t,ho+1)=ho+l:nex 
t:a$(0)="[CTRL-6][SHIFT—][COM-6]" 
120 fort=ltohostep4:a$(t)="[CTRL-9]"+1 
eft$("[lOxSPACE]",(t-1)/2+1)+"[CTR 
L 0]":nextt 

130 fort=2tohostep4:a$(t)="[COM-M]"+a$ 
(t-1)+" [CTRL-0] [COM-G]":nextt:fort 
=3tohostep4 

140 a$(t)="[CTRL-9][COM-K]"+a$(t-2)+"[ 
CTRL-0] [COM-KJ":nextt:fort=4tohost 
ep4:a$(t)="[CTRL-9][COM-G]"+a$(t-3 
)+"[CTRL-9][COM-M] [CTRL-0] " 

150 nextt:b(1)=1:b(2)=ho+l:b(3)=ho+l:f 
ort=ltoho:a(1,t)=t:nextt 
160 print"[CRSR-DOWN] [CTRL-6] hier [SPAC 
E]heb[SPACE]je[SPACE][COM-6]minste 
ns"2[KWADRAAT PIJL]ho-l"beurten[CT 
RL 6][SPACE]voor":print"nodig.[SPA 
CE]weet[SPACE] 

170 prinf'het[SPACE]zeker[SPACE](j/n)[ 
SPACE]?[SPACE][COM-6][COM-'][CRSR- 
LEFT]";:do:getkeya$:loopuntila$="j 
"ora$="n":print"[SHIFT-CLR]" 

180 ifa$="n"thenend:elsefort=lto3:prin 
t"[HOME]";: forr=0toho 
190 printtab(t*13-6-(a(t,r)+3)/4)a$(a( 
t,r)):nextr,t 

200 print"[CTRL-6][6xCOM-U][CTRL-9]1[C 
TRL 0][12xCOM-U][CTRL-9]2 [CTRL-0] [ 
12xCOM-U][CTRL-9]3 [CTRL-0] [6xCOM-U 
][CRSR-DOWN]" 

210 br=br+l:charl,28,ho+3,chr$(27)+"pb 
eurt:[SPACE]":printusing"[COM-6]## 
##";br 

220 print"[CRSR-DOWN][COM-6]s[CTRL-6][ 
SPACE]=[SPACE]stoppen":charl,0,ho+ 
3,"[CTRL-6]van[SPACE][COM-6][COM-' 

][CRSR-LEFT]":do:getkeya$:ifa$="s" 
then330 

230 a=val(a$):ifa<lora>3thenloop:elsei 
fb(a)>hothenloop:elsefort=lto3 
240 xfa(a, b(a))<a(t,b(t))thenprinta$"[ 
CTRL-6][SPACE]naar[SPACE][COM-6][C 
OM '][CRSR-LEFT]";:goto250:elsenex 
t:loop 

250 do:getkeyb$:ifb$="s"then330:elseb= 
val(b$):ifb<lorb>3orb=athenloop 
260 ifa(a,b(a))>a(b,b(b))thenloo 'p:els 

eprintb$ :charl,13*a-ll,b(a),"[4xSP 
ACE][CTRL-6][SHIFT--][COM-6][4xSPA 
CE] " 

270 charl,13*b-6-(a(a,b(a))+3)/4,b(b)- 
1, a$ (a (a, b (a) ) ) : a (b, b (b)-1) =a (a, b ( 
a) ) 

280 a(a,b(a))=0:b(a)=b(a)+1:b(b)=b(b)- 
1: ifb (3) Olthen210 

290 charl,0,ho+3,chr$(27)+"'[CTRL-6]he 
t[SPACE]is[SPACE]je[SPACE]gelukt[S 
PACE]in[COM-6]":printbr"[CTRL-6]be 
urten[SPACE]!!" 

300 ifbr=2[KWADRAATPIJL]ho-lthenprint" 
het[SPACE]kan[SPACE]niet[SPACE]sne 
lier[SPACE]!!":goto320 
310 prinf'het[SPACE]kon[SPACE]sneller, 
[SPACE]in"2[KWADRAAT PIJL]ho-1"beu 
rten[SPACE]!!" 

320 print" [CRSR-DOWN]druk[SPACE]op[SPA 


CE]een[SPACE]toets.[COM-6]":getkey 
a$:graphicO,1:end 

330 br=br-l:charl,0,ho+3,chr$(27)+"'[C 
TRL 6]":print"je[SPACE]hebt[SPACE] 
je[SPACE]taak[SPACE]niet[SPACE]vol 
bracht[SPACE]!!" 

340 print"[CRSR-DOWN]laf[SPACE]hoor,[S 
PACE]om[SPACE]er[SPACE]na[COM-6]"b 
r"beurt";: ifbr>lorbr=0thenprinf 'en 

II . 

350 print"[CTRL-6][SPACE]al":print"van 
af[SPACE]te[SPACE]zien[SPACE]!!":g 
oto320 

** EINDE LISTING hannoi ** 


Checksum Hannoi 


REGEL 

10 

112 

REGEL 

220 

0 

REGEL 

20 

210 

REGEL 

230 

167 

REGEL 

30 

72 

REGEL 

240 

89 

REGEL 

40 

113 

REGEL 

250 

142 

REGEL 

50 

241 

REGEL 

260 

236 

REGEL 

60 

92 

REGEL 

270 

255 

REGEL 

70 

44 

REGEL 

280 

240 

REGEL 

80 

67 

REGEL 

290 

46 

REGEL 

90 

200 

REGEL 

300 

66 

REGEL 

100 

90 

REGEL 

310 

108 

REGEL 

110 

124 

REGEL 

320 

137 

REGEL 

120 

26 

REGEL 

330 

134 

REGEL 

130 

131 

REGEL 

340 

200 

REGEL 

140 

62 

REGEL 

350 

116 

REGEL 

150 

190 




REGEL 

160 

210 




REGEL 

170 

211 




REGEL 

180 

136 




REGEL 

190 

112 




REGEL 

200 

110 




REGEL 

210 

227 
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Fran^ois Lionet 

De man achter AMOS 



E indelijk was het dan 
zover. Het veel bespro¬ 
ken AMOS verscheen 
bij de redactie als demo en 
als complete uitvoering, di¬ 
rect uit Engeland. Even gin¬ 
gen er stemmen op dat het 
wel een Amiga-versie van de 
succesvolle STOS basic taal 
voor de Atari ST zou gaan, 
maar niets was minder waar. 
Deze basic-taal was compleet 
herschreven: een nieuw pro¬ 
gramma. 

De Franse schrijver van deze 
krachtige BASIC-program¬ 
meertaal, Francois Lionet, 
die ook verantwoordelijk was 
voor het kassucces STOS 
voor de AtariST, begint een 
levende legende te worden. 
Eerder dit jaar had het News- 
flash magazine (03404- 
52987) een interview met 
hem. 

AMOS - De persoon 

Newsflash: Goed, vertel eerst 
eens iets over jezelf voordat 
we het over AMOS gaan heb¬ 
ben. Waar ben je geboren en 
waar woon je precies? 
Framjois: Ik woon in Yerres, 
aan kleine plaats ongeveer 25 
kilometer van Parijs. Ik werd 
op 7 juni 1963 geboren in 
Maubeuge, een dorp dicht te¬ 
gen de grens met Belgie. 
Verder heb ik twee broers 
waarvan de een tandarts is en 
de ander cardioloog. 

Zelfben ik getrouwd met Ca- 
rine en onze hond heet Daisy. 
En je zult het niet geloven, ik 
haalde mijn dierenarts-diplo- 
ma. Maar doordat ik het pro¬ 
grammeren leuker vindt is 


hier verder nietsmeer van ge¬ 
komen. 

N: En hoe zit het met je eten? 
F: Alleen het beste. Ik hou 
van veel dingen en ga graag 
naar HELE goede restau¬ 
rants, zo’n een keer in de 
twee maanden. Ik vind dat 
het geld wel waard. Eigenlijk 
zou ik zo niet eens iets weten 
dat ik niet lekker vindt. Mis¬ 
schien zeeslakken of zo... 

N: Hou je van muziek? 

F: Alleen goede muziek... en 
vooral de laatste CD die ik 
heb gekocht. Ik heb die goe¬ 
de muziek echt nodig als ik 
programmeer. Daardoor 
werk ik gewoon beter. Ik be¬ 


doel dan niet als achtergrond¬ 
muziek, maar echt heel hard 
door een koptelefoon. Het is 
soms zo erg, dat ik wilde dat 
ik een lamp op m’n telefoon 
had, omdat ik dan het ding 
niet over hoor gaan. Een 
groep die je in Nederland niet 
hebt, en die ik echt slecht 
vindt, is "Les Muscles". 

N: Waar ga je het liefste heen 
en waar het minste? 

F: Ik ga het liefst naar de ber¬ 
gen, en een plek waar ik 
ronduiteen hekel aan heb zijn 
kleine steden. 

N: Wat is voor jou de gebeur¬ 
tenis van de jaren ’80? 


F: De 80’er jaren... Ik weet 
niet... Misschien net als iede¬ 
reen de veranderingen in 
Oost Europa. 

N: Waar hoop je in dit op¬ 
zicht op? 

F: Dat Gorby er in ieder ge¬ 
val volgend jaar ook nog zit! 
N: En je persoonlijke wen¬ 
sen? 

F: Het mooiste wat me kan 
overkomen... we zouden 
graag een kind willen! Nu we 
het er toch over hebben, nog 
even het slechtste: volgend 
jaar moet ik in dienst. 

N: Beschrijf eens in vijf 
woorden je karakter. 

F: Perseverant, blij, slordig 
(behalve met mijn program¬ 
ma’s) en meer weet ik niet. 

N: En hoe zit het met je fa- 
vouriete films? 

F: In denk Brazil en ik houd 
van alle Monty Python-films. 
N: Wat houdt je niet van? 

F: Hypocriet zijn, luie men¬ 
sen, stomheid. 

N: Welke interessen en hob¬ 
by’s heb je verder? 

F: Skiën, squashen, tennis¬ 
sen, piano spelen, Science 
fictionverhalen en stripboe¬ 
ken lezen, zeilboten, vakan¬ 
tie, strand en zon. 

N: Waar zou je het liefst heen 
willen gaan? 

F: Noord-Amerika en Azië. 
N: Wat was het beste nieuws 
dat je ooit te horen kreeg? 

F: Dat er van STOS 35.000 
exemplaren verkocht waren!! 

N: En het slechtste? 

F: Dat er van STOS maar 
35.000 exemplaren verkocht 
waren!!!! 
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AMOS - De Amigo 

N: Wat is je favouriete pro- 
grammeer-onderwerp? 

F: Sprites, bobs, eigenlijk al¬ 
les dat zichtbaar en hoorbaar 
gemaakt kan worden. 

N: En daarna? 

F: Onderwerpen die met sor¬ 
teren te maken hebben en het 
maken van structuren. 

N: Welke andere program¬ 
meurs bewonder je? 

F: Jez San, omdat hij een 
groep om hem heen heeft ge- 
vormt. En anderen zoals 
Yves Lamoureux (van Cap¬ 
tain Blood op de Am- 
stradCPC) 

N: Nu even over de Amiga. 
Wat vindt je de beste en de 
slechte eigenschappen van 
deze computer? 

F: Het allerbeste zijn de 
chips, echt! Het slechtste is 
Amiga-DOS en het feit dat 
het C-georienteerd is. Als je 
machinetaal wil gebruiken, 
succes met de pointers! 

N: Wat is je mening over het 
kopiëren van software? 

F: Het kopiëren is nu een 
paar jaar aan de gang. Ik denk 
dat daardoor over vijf jaar al¬ 
les op cartridges zal staan. 
We maken de laatste jaren 
mee van de micro computers! 
Piraten hebben de eerste 
wedstrijd gewonnen, maar de 
software-schrijvers zullen de 
tweede winnen. 

N: Voor welke programma’s 
was je nog meer verantwoor¬ 
delijk? 

F: Je kent er vast wel een 
paar: 

Chicken Chase, Serenade, 
Katuvu en Ole! op de Com¬ 
modore 64.Verder deed ik 
natuurlijk de STOS-produk- 
ties voor de Atari ST en een 
aantal zaken op de PC. En nu 
dan AMOS voor de Amiga. 
N: Wat was voor AMOS je 
beste prestatie? 

F: STOS natuurlijk. Ik werk¬ 
te er een jaar aan. 

N: Hoe vond je de Amiga na¬ 
dat je zolang met de ST had 
gewerkt? 

F: In het begin was ik rade¬ 
loos. Ik dacht dat ik hem 
nooit onder de knie zou krij¬ 
gen; ik haatte het apparaat 
gewoon. 


Langzamerhand begon ik de 
opzet door te krijgen en ging 
van de chips houden, maar 
nog steeds haatte ik de inge¬ 
bouwde software. 
Uiteindelijk begon ik die ook 
door te krijgen, vooral door 
de goede documentatie. 


ongeveer 50 keer diskje-ver- 
wisselen nodig om het voor 
elkaar te krijgen. Ik had zelfs 
drie dagen nodig om mijn 
hard-disk te installeren! Ik 
kan me niet voorstellen hoe 
de gevorderde gebruiker 
hiermee kan werken?! 


"Ik vraag me trouwens af hoe de Ami¬ 
ga er in hetjaar2010 uit zal zien 
(omdat de Amiga er dan nog is en 
STs dan niet meer bestaan)" 


Op dit moment ben ik einde¬ 
lijk overtuigd dat de Intuition 
een goed stukje vakwerk is, 
maar aan Amiga-DOS heb ik 
nog steed een hekel. Het is 
werkelijk zonde dat ze geen 
goede disk-acces in deze ma¬ 
chine hebben gebouwd. Ver¬ 
der snap ik ook niet dat ze 
niet een paar residente pro¬ 
gramma’s hebben inge¬ 
bouwd. Niet veel, alleen 
maar DIR, COPY of iets der¬ 
gelijks. Het kwam vaak voor 
dat ik met een diskdrive zat 
en geen startup-sequence op 
de disk had staan. Dan waren 


Dus mijn mening over de 
Amiga is een beetje in balans 
gekomen. Aan de ene kant 
prachtige hardware, maar een 
vreselijk slechte disk-acces 
en toch ook weer redelijke in¬ 
gebouwde software. Verder 
is de Amiga gebouwd op uit¬ 
breiden. Ik vraag me trou¬ 
wens af hoe de Amiga er in 
het jaar 2010 uit zal zien 
(omdat de Amiga er dan nog 
is en ST’s dan niet meer be¬ 
staan). 



AMOS - Het 
programma 

N: Nou, wat ga je ons alle¬ 
maal over AMOS vertellen? 
F: Ik ga in ieder geval niet op 
de details itl zoals in de ad¬ 
vertenties van Mandarin. 

N: Wat is er nu zo speciaal 
aan AMOS in vergelijking 
tot andere programmeerta¬ 
len? 

F: Het gebruik van de In tui - 
tion-interface niet. Daardoor 
was ik behoorlijk vrij om een 
geheel eigen omgeving te 
ontwikkelen. 

AMOS is op SCREENS ge¬ 
baseerd, die net niet tot de 
boden van het scherm rijken. 
Daardoor kun je zien wat er 
onder zit. Intuition laat dat 
niet toe. Ik kan het weten, 
wat het lukte niet om dat zote 
programmeren. Natuurlijk 
kun je per screen een andere 
resolutie hanteren. 

N: Wat zeg je tegen mensen 
als ze zeggen dat. je geen 
multi-tasking gebruikt? 

F: Ik hoor veel mensen zeg¬ 
gen: Hij respecteert de Ami¬ 
ga niet, dat is toch zonde. 
Maar niets is minder waar. Je 
ziet er alleen niets van. 

N: Hoe heb je het voor elkaar 
gekregen om zoveel functies 
in een programma te stoppen 
voor een Amiga met maar 
512 KB? 

F: Doordat het geen gebruik 
maakt van de WorkBench 
spaar je al 42k geheugen. En 
omdat alles in AMOS zelf 
zit, hou je nog ongeveer 240k 
over om mee te werken. 

N: Wat kun je allemaal met 
AMOS programmeren? 

F: Met AMOS kun je bijna 
alles voor elkaar krijgen. 
Maar het is vooral bedoeld 
voor het maken van spellen. 
Dat neemt niet weg dat je er 
ook databases mee kunt ma¬ 
ken, of teksverwerkers. Maar 
voor deze software is AMOS 
waarschijnlijk te langzaam. 
Daarvoor kun je beter GFA 
of C gebruiken. 

N: Welke functies zitten in 
AMOS die feitelijk geen en¬ 
kele andere programmeertaal 
heeft? 

F: Ik heb werkelijk al mijn 
stoutste dromen bij AMOS in 
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"KOOP AMOS. 

Zelfs als je geen Amiga hebt" 


vervulling doen gaan, zoals 
een snelle editor, snelle 
schermen, gemakkelijke spri- 
tes, muziek, een professio¬ 
neel menu-systeem, direct la¬ 
den van IFF-files en meer 
dan een programma in het ge¬ 
heugen. Het is precies wat ik 
wilde. 

N: Heb je enig idee hoe 
AMOS zal worden verkocht? 
F: Ik weet niet hoeveel we 
precies van plan zijn te pro¬ 
duceren. Laten we even van 
STOS uitgaan. daarvan zijn 
er 35.000 verkocht. De Ami- 
ga-markt is twee keer zo 
groot als die van de ST en 
AMOS is het enige program¬ 
ma in zijn soort. Dus je be¬ 
grijpt dat ik behoorlijk opti¬ 
mistisch ben. En niet te ver¬ 
geten alle positieve reacties 
die ik al had op de pre-re- 
leases... De Amiga-kring is 
veel vriendelijker dan die van 
de ST! 

N: Wat doet AMOS wat geen 
ander kan? 

F: Ik denk dat het vooral de 
kracht direct uit de chips 
haalt. Het is snel (niet zo snel 
als GFA, maar bijna wel), 
heeft meer dan 400 comman¬ 
do’s en noem maar op. 

N: Hoeveel heb je van STOS 
gebruikt om AMOS te ma¬ 
ken? 

F: Het probleem met mij is 
een beetje dat ik van te voren 
niet goed kan zeggen hoe een 
programma er uit zal gaan 
zien. Voordat ik met AMOS 
begon, kon ik alleen zeggen 
dat het er mooi uit zou zien, 
maar niet hoe. De ideeen ko¬ 
men pas goed als ik eenmaal 
ben begonnen. Maar hoe het 
ook zij, het programma is be¬ 
ter dan ik hoop had durfen 
dromen. 

Mandarin wilde eerst een af¬ 
treksel van STOS, met de 
snelheid van de Amiga. Maar 
uiteindelijk is het een totaal 
ander pakket geworden met 
een betere programmeerom¬ 
geving en meer dan perfecte 
functies, dat alle voordelen 
van de Amiga hardware be¬ 
nut. 

N: Hoe lang duurde de ont¬ 
wikkeling van AMOS? 

F: Ik had er een jaar voor no¬ 
dig. Daar zaten ook de hulp¬ 


programma’s bij, zoals de 
Music Designer, de AMAL 
editor en de Sprite designer. 
Ik begon in april vorig jaar. 
N: Was je blij met het succes 
van STOS? 

F: Natuurlijk was ik blij met 
STOS. Nu begint trouwens 
het succes in Frankrijk door 
te komen. In Engeland was 
dat al hetgeval, maar daar 
merkte ik niets van. Dus voor 
mij was dat succes niet altijd 
even duidelijk merkbaar. Er 
was ook niemand die mij als 
programmeur kende. Als ik 
iemand vertelde dat ik pro¬ 
grammeur was en dat ik 
STOS had geschreven, zei¬ 
den hij: Wat? SOTS? TSOS? 
Dat frustreerde me best wel. 
Maar nu gaat het dus beter. 
Met AMOS zal het wel de¬ 
zelfde kant op gaan, omdat er 
niet zoveel Amiga in Fran¬ 
krijk zijn verkocht. Het is op 


zich leuk te weten dat je 
naam over heel de wereld 
wordt genoemd! 

AMOS - De toekomst 

N: Welke projecten heb je 
verder nog in de pen? 

F: Eerst militaire dienst, maar 
daarna wordt het weer pro¬ 
grammeren geblazen. 

N: En de plannen voor 
AMOS? 

F: Om te beginnen de compi¬ 
ler en dan AMOS versie 1.1, 
die alle klachten van de ge¬ 
bruikers tot dan toe moet op¬ 
lossen. En dan STOS Pro op 
de ST. Dat wordt dan de 
AMOS-versie voor de ST! 

N: Als je nou niet was gaan 
programmeren, wat zou je 
dan zijn gaan doen? 

F: Ik denk dat ik dan dieren¬ 
arts zou zijn geworden. 

N: Heb je nog iets tegen de 
lezers te zeggen? 


F: Iedereen kan ergens de 
AMOS-demo disk tegenko¬ 
men; het is PD.Hoe het ook 
zij jullie hebben de beste ma¬ 
chine (als ik naar m’n ST kijk 
wordt ik gek. Hoe kon ik 
stood programmeren, een 
heel jaar lang???) 

N: Heb je verder nog iets te 
zeggen tegen andere pro¬ 
grammeurs? 

F: WERK! Denk niet dat je 
de beste bent. Alle program¬ 
meurs zijn erg trots als ze 
eindelijk hun programma af 
hebben. Was ik ook. En dan 
onmoette ik iemand die wer¬ 
kelijk echts iets moois had 
gemaakt. Dan voelde ik me 
weer heel klein. 

Geloof me, je weer niet half 
hoe goed sommigen zijn. Ga 
niet naast je schoenen lopen, 
het kan altijd beter! 

N: Wat is je boodschap tot de 
Amiga-wereld? 

F: Ik zou tot de WERELD 
willen zeggen: KOOP 
AMOS. Zelfs als je geen 
Amiga hebt. Je hebt het ge¬ 
woon nodig. 

N: En wat tot de kopers? 

F: Hartelijk dank. Koop 
straks de compiler! 

Dit interview werd afgeno¬ 
men door Martyn Brown, 
Newsflash UK. 

Vertaling: Wilbert Scheer 
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CDTV 

Kleintje multimedia in CD-ROM Amiga 


S top een CD-ROM, En- 
hanced Chip-Set en 
een Amiga 500 in een 
CD- speler kast en wat krijg 
je dan? Volgens Commodore 
CDTV, Commodore Dyna- 
mic Total Vision, het nieuwe 
consumenten video- en au- 
dio-gadget voor de jaren ne¬ 
gentig. Nu staat deze CDTV- 
machine nog deels op de 
werkhand en stond zij slechts 
onder de "glazen stolp" op 
CES en Comdex. Volgens 
Commodore zullen de eerste 
PAL- realeases rond Sinter¬ 
klaas in de winkel staan. Wij 
van Commodore- Info geven 
alvast een vooruitblik. 

Een CD-ROM drive in de 
Amiga stoppen is niet nieuw. 
Al enige tijd zijn losse CD- 
ROM-afspelers voor de Ami¬ 
ga verkrijgbaar en werd er 
hier en daar een Amiga 2000 
of 2500 met ingebouwde 
CD-ROM-drive gesigna¬ 
leerd. Wel nieuw is het bou¬ 
wen van een multimedia 
Amiga in het klein rondom 
een gecombineerde CD-vi- 
deo- en CD-audiodrive. 
Commodore noemt dit con¬ 
cept Commodore Dynamic 
Total Vision, kortweg 
CDTV. 

Uiterlijk 

Wie de nieuwe CDTV-speler 
voor het eerst aan de voorzij¬ 
de bekijkt raakt in vertwijfe¬ 
ling. Op het eerste gezicht 
lijkt het om een geavanceer¬ 


de CD-speler te gaan of een 
compacte videorecorder. 
Zelfs de moderne goukleuri- 
ge brede ronde pootjes zitten 
er onder en er zit een LED- 
venster in het frontje. Maar 
...., er zit ook een 3.5 inch 
diskdrive in? 

Aan de achterzijde lijkt het 
apparaat meer op een PC- 
systeemkast. Er zijn connec- 
toren voor parallel Centro¬ 
nics, RS232 serieel, MIDI, 
twee audio-tulpbussen en, in¬ 
dien er een videokaart in de 
kast zit, ook een video-uit- 
gang (composiet Pal en Y/C). 
Ook de bediening is voor ve¬ 
lerlei uitleg vatbaar. Er zitten 
een zowel een infrarood-af- 
standsbediening als een muis 
en toetsenbord bij. Verder 
zitten er nog een aantal be¬ 
dieningsknoppen voor de 
CD-ROM-drive aan de rech- 
tervoorzijde. Dit is toch wel 
een erg vreemde gast in de 
video/audiokast. 

Toch een Amiga! 

Om alle twijfel weg te ne¬ 
men. Het gaat wel degelijk 
om een Commodore Amiga. 
Namelijk eentje van het 500- 
type met een 7.16 MHz (voor 
PAL-applicaties op 7,09379 
MHz) Motorola MC 68000, 
Enhanced ChipSet, 1 MB 
RAM, Amiga Kickstart 1.3 
ROM en een video- uitbrei- 
dingsslot in. Er is een optio¬ 
neel expansie-module lever¬ 
baar voor het aansluiten van 
een harddisk e.d. 


In tegenstelling tot een nor¬ 
maal Amiga wordt dit 
CDTV-model geheel Ifra- 
rood bestuurd. Niet alleen de 
afstansbediening is IR. Ook 
de muis, het keyboard, de 
joysticks en tracballs zijn IR. 
Er is tevens een IR-tweespe- 
ler-interface. Desgewenst 
kunnen echter wel de con¬ 
ventionele muis-, joystick- 
en toetsenbordaansluitingen 
benut worden. 

Het besturingssysteem Kik- 
start 1,3 wordt ondersteund 
door de ISO 9660 Fule-Sys- 
tem-Handler en High Speed 
data-decompressie. 

Het CD-ROM 

Naast het computerhart zetelt 
het CD-ROM. Het gaat om 
een half GigaByte (550 Me- 
gaByte)-type met een 
Sony/Philips loopwerk kor- 
rensponderend met de CD- 
ROM-standaard Mode 1 en 
Mode 2. 

De data-overdrachtssnelheid 
hangt af van de gebruikte 
modus: 

• Mode 1; 153 KiloBytes 
per seconde 

• Mode 2; 171 KB/s 

• Burst-modus; 2 MegaBy- 
tes per seconde 

De gemiddelde accestijd ligt 
tussen 0,5 en 0,8 seconde. 
Deze CD-ROM-drive is zo¬ 
wel als CD-ROM als voor 
audio- en videoweergave ge¬ 
schikt. U kunt deze CDTV- 
kleine dus als encyclopedie 










op schijf, geavanceerde com- 
pactdisk en videodisk- afspe- 
ler gebruiken. De toepassin¬ 
gen zijn legio. Van evenvou- 
dig voorgeprogrammeerd af¬ 
spelen en interactieve studie- 
sessies (Computer Onder¬ 
steund Onderwijs, COO) tot 
desktopvideo en multimedia- 
presentaties op het bedrijf of 
in de huiskamer. Commodo¬ 
re zelf spreekt zoals gezegd 
van Total Vision. 

Toepassingen 

Er is veel aandacht voor vi- 
deo-aansluitingen. Van huis 
uit is de CDTV-machine ge¬ 
schikt voor PAL composiet- 
video, Super-VHS en HI8. 
Optioneel is een Genlock 
voor dtv-toepassingen ver¬ 
krijgbaar. Titel-, Paint- en 
animatiesoftware is reeds ja- 
ren in alle soorten en maten 
leverbaar. Een keurige aftite¬ 
ling, tekenfilmpje of zakelij¬ 
ke presentatie is op deze 
CDTV-500 zo gepiept. 
Natuurlijk is de CDTV-spe- 
ler ook als gewone compact- 
disk bruikbaar. Via de beide 
tulpaansluitingen kunt u de 


CD via elke normale stere- 
oversterker weergeven. Inte¬ 
ressant is de MIDLbus. Hier¬ 
mee zijn zowel MIDI-com- 
patibile electronische mu- 
ziekinstumenten als allerlei 
andere randapparatuur aan te 
sturen. Bij die muziekinstru¬ 
menten kan de gebruiker naar 
hartelust componeren op de 
Amiga en/of met de CD- 
ROM AV combineren. Via 
de seriële en de MIDI-poort 
kunt u bijvoorbeeld ook één 
of meerdere diaprojectoren 
aansturen. Er zijn diverse 
overvloei-apparaten (dissol¬ 
vers) in de handel waar het 
CD-geluid prima bij past U 
kunt de gehele diashow dan 
op geleide van de compact- 
disk programmeren. 

Voor de echte multimedia¬ 
toepassingen kan de gebrui¬ 
ker inmiddels terecht bij di¬ 
verse authoring-systemen. 
Commodore zelf levert de 
auteurstaal Amiga Vision en 
verder is er o.a. VISA in ama¬ 
teur- en professionele uitvoe¬ 
ring. Wie iets minder profes¬ 
sioneel te werk wil gaan kan 
bijvoorbeeld met Deluxe Vi¬ 
deo III ook een aardige mul¬ 


timedia-presentatie in elkaar 
sleutelen. 

Het "encyclopedische deel" 
is sterk afhankelijk van de 
CD-ROM- software die in de 
nabije toekomst leverbaar 
moet worden. Een CD- ROM 
persen en coaten kost veel 
geld en de vraag rijst of deze 
investering voor het neder- 
landse taalgebied er uitkomt. 
Algemenere CD-ROM-pak- 
ketten zoals atlassen, kunst¬ 
en historische collecties, toe¬ 
ristische informatie en diver¬ 
se lespakketten zullen er best 
wel komen. Hetzelfde geldt 
voor met videogames en - 
clips beladen CD-ROMs. 
Een nederlandstalige ency¬ 
clopedie is echter een ander 
kapitel. De tijd zal het leren 
over er ook nederlandse tali¬ 
ge educatieve en interactieve 
software voor de huiskamer 
gaat uitkomen. 

Last but not least kan de nieu¬ 
we trotse CDTV-500-bezitter 
dit machien natuurlijk ge¬ 
woon als een Amiga 500 ge¬ 
bruiken. En wat daar alle¬ 
maal niet mee kan... 


Is CDTV en nieuw gat in de 
markt? Volgens Commodore 
gaat deze huiskamer- en klei¬ 
ne bedrijfsmultimediavorm 
het helemaal maken. Als 
straks de eerste kant-en-klare 
modellen (N.B.: De hier ge¬ 
noemde technische specifica¬ 
ties kunnen zich dus nog wij¬ 
zigen!) in de winkel staan na¬ 
dert het uur der waarheid. 
Aan het prijskaartje van min¬ 
der dan ƒ 2.000,- kan het in 
ieder geval niet liggen. 

U.S. 
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DE TWEEDE PARALLELLE 

INTERFACE 

Zelfbouw en achtergrondinformatie 


H et maken van een ex- scherm opbouw (raster), 

tra parallelle interfa¬ 
ce is een wens van De B8520 (even adressen) 
veel Amiga-bezitters. Daar regelt het volgende: 
willen we in dit artikel graag ° power LED; 
aan tegemoet komen. Maar 0 een gedeelte van de disk- 
voordat we daartoe overgaan drive; 

eerst wat gegevens van het ° de vuurknop van de joys- 
binnenste van de computer. tick (poort 0 en 1); 

De 8520 is een randchip van ^ ata 'Ö 11611 van de P aial_ 

het type CIA (Complex Inter- o lel P oort: 

face Adapter, veelzijdige in- de controle lijnen van de 

terface eenheid): de ontwik- parallel poort; 

kelaars hebben zoveel moge- 0 keyboard (data + klok); 

lijk functies ondergebracht in • k|ok ls (rea ltime klok). 

een component. 



Registerconfiguratie van de 8520: 
Register Naam Functie 


De 8520 

De 8520 is afgeleid van de 
6526 chip die ook in de C64 
is genesteld. De 8520 be¬ 
schikt over 8 bit registers 
voor in- en uitgangen (I/O) 
met een handshake signaal. 
Beide IC’s hebben twee 16 
bits timers. Een seriele poort 
voor in of uitgang en een 24 
bits teller inclusief overflow. 
In de Amiga zitten twee 
8520’s. De ene 8520 verzorgt 
de even adressen en de ander 
de oneven adressen. 

De A8520 (oneven adressen) 
regelt het volgende: 

0 controle lijnen parallelle 
poort; 

° controle lijnen seriële 
poort; 

° een gedeelte van de disk¬ 
drive; 

3 Synchronisatie van de 
BLITTER met beeld- 


De 8520 heeft de volgende 
mogelijkheden: 

0 twee vrij programmeerbare 
8-bits parallelle poorten 
(PA en PB); 

° twee 16-bits tijdtellers (ti- 
merA en timerB); 

0 een bidirectionele seriële 
poort (SP); 

0 een 24-bits teller, die 
waarschuwt bij het berei¬ 
ken van een gekozen waar¬ 
de (event-counter). 

Al deze taken kunnen een in- 
terrupt veroorzaken. De 8520 
beschikt over zestien regis¬ 
ters. Voor de processor lijken 


0 

$0 

PRA 

Gegevensregister van poort A 

1 

$1 

PRB 

Gegevensregister van poort B 

2 

$2 

DDRA 

Gegevensrichting-register van 
poort A 

3 

$3 

DDRB 

Gegevensregister-register van 
poort B 

4 

$4 

TALO 

TimerA, 8 laagste bits 

5 

$5 

TAHI 

TimerA, 8 hoogste bits 

6 

$6 

TBLO 

TimerB, 8 laagste bits 

7 

$7 

TBHI 

TimerB, 8 hoogste bits 

8 

$8 

Event-Lo 

Teller bits 0-7 

9 

$9 

E . 8-15 

Teller bits 8-15 

10 

SA 

Event-Hi 

Teller bits 16-23 

11 

$B 


Niet in gebruik 

12 

$C 

SP 

Gegevensregister van de seriële 
poort 

13 

$D 

ICR 

Interruptstuurregister 

14 

$E 

CRA 

Stuurregister A 

15 

$F 

CRB 

Stuurregister B 


Commodore Info 6/90 


Parallel poort: 

Register Naam D7 D6 D5 D4 D3 D2 Dl DO 


0 PRA PA7 PAS PA5 PA4 PA3 PA2 PA1 PAO 

1 PRB PB7 PB6 PB5 PB4 PB3 PB2 PB1 PBO 

2 DDRA DPA7 DPA6 DPAS DPA4 DPA3 DPA2 DPA1 DPA0 

3 DDRB DPB7 DPB6 DPB5 DPB4 DPB3 DPB2 DPB1 DPBO 









A 


m 


i 


g 
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dat normale geheugen adres¬ 
sen. In een systeem met een 
68000 processor is alle rand¬ 
apparatuur namelijk ’memo- 
ry mapped’, dat wil zeggen 
de registers van de aanhan¬ 
gende chips doen zich voor 
als geheugenadressen die met 
de gewone instructies (bij¬ 
voorbeeld MOVE) gelezen 
en beschreven mogen wor¬ 
den. 

Omdat de 6526 is ontwikkeld 
voor processoren uit de 65xx- 
familie (8 bits) en de 8520 
daarvan is afgeleid moet de 
68000 hem aanspreken in de 
synchrone mode. 

De E-klok van de 68000 is 
dus verbonden met de Phi2- 
ingang van de 8520. De vier 
adresingangen A0 tot en met 
A3 bepalen het actuele inter¬ 
ne register. Van de zestien re¬ 
gisters wordt nummer 11 
($B) niet gebruikt. De onder¬ 
staande tabel geeft een over¬ 
zicht van het gebruik van de 
registers: 


Bij de twee 8-bits parallelle 
poorten (PA en PB) van de 
8520 horen de gegevensre- 
gisters PRA en PRB (PR, 
Port Registers). De chip be¬ 
schikt dus over zestien poort- 
lijnen: PA-PA7 en PB0-PB7. 
Elk van deze lijnen kan die¬ 
nen als ingang en als uitgang 
(gegevensrichting). Bij de 
8520 kunt u de richting van 
elke lijn apart definiëren. Die 
keuze is opgeslagen is een 
gegevensrichting-register bij 
elke lijn: DDRA of DDRB 
(DDR, Data Direction Regis¬ 
ter). Als een bit van het gege¬ 
vensrichting-register 0 is, 
werkt de bijbehorende lijn als 
ingang: lezen van de bits in 
het gegevensregister geeft in¬ 
formatie over de status van 
een lijn. 

Analoog geeft een 1 in het 
gegevensregister van een lijn 
die lijn de status van uitgang: 
het nivo van de bijbehorende 
poortlijn komt direct overeen 
met de bit van het gegevens¬ 
register. 

Als algemene regel geldt dat 
bij schrijven een waarde in 
het gegevenregister wordt 
opgeslagen; bij" lezen komt 


j-fdi 
üt+C 
L+4-t 

ïtr 


<3ND 

FA0 
PA1 
PA2 

FA3+*Cj 
FA4 ++ t: 
FA5++C 
FA6+*d 
FA7+*r, 

FBB++ C 
FBI 

FB2 ++C 
FB3TT c 

FB4++IT 
FBSffC 
FB&+4- C 
PH?f*r 

Fc 

ÏOD —► c 

Ver. 


.\::7"4éï 

0 

03 

LD 

0 


CMT 
SF 

;j 4— ab 
, Al 
b+-A3 

TOET; 
i>e 

Dl 
D2 
D3 


Ö D4 

D3 


P4-*DC 

P+4D7 

ftatF ii i a > 

+— FLAG 

+- BZH 

—► IRQ 


Fif 2: Pinbelegging van 
de 8520 

de status van de poortlijnen 
op de databus. De bits van het 
gegevensrichting-register be¬ 
palen of de waarde van het 
gegevensregister op de poort¬ 
lijnen wordt afgebeeld. Dat 
heeft tot gevolg dat bij lezing 
van een poort die als uitgang 
is geschakeld, de inhoud van 
het gegevensregister naar de 
poortlijnen gaat, en dat bij 
beschrijving van een poort 
die als ingang is geschakeld, 
de waarde naar het gegevens¬ 
register gaat. Die waarde 
komt pas op de poortlijnen 
als u omschakelt naar de sta¬ 
tus voor uitvoer. 

De twee handshake-lijnen 
(PC en FLAG) van de 8520- 
chips vereenvoudigen de 
transmissie via de parallel 
poort. 

De PC-uitgang gaat iedere 
keer bij gebruik van gege¬ 


vensregister B (PRB, register 
1) gedurende een klokcyclus 
naar 0. De ingang FLAG rea¬ 
geert juist op negatieve flan¬ 
ken (dalend nivo): iedere 
keer dat de status van de 
FLAG-lijn wisselt van 1 naar 
0, wordt de FLAG-bit van het 
interruptstuurregister gezet 
(ICR, register $D). Met deze 
twee lijnen is een eenvoudige 
handshake mogelijk door de 
FLAG- en de PC-lijnen om 
en om met elkaar te verbin¬ 
den. 

De zender hoeft zijn gege¬ 
vens alleen maar in het poort - 
register te schrijven en op het 
FLAG-signaal te wachten als 
toestemming om het volgen¬ 
de byte te versturen. Omdat 
FLAG een interrupt mag ver¬ 
oorzaken, kan de zender in de 
wachttijd iets anders doen. 


Voor de ontvanger geldt een 
soortgelijk verhaal. 

De 8520 heeft twee 16-bits 
tijdtellers (timers): ze tellen 
vanaf een gekozen waarde te¬ 
rug naar nul. Ze hebben elk 
een groot aantal modi, te kie¬ 
zen met behulp van een 
stuurregister (CRA en CRB). 
Beide timers hebben intern 
vier registers: twee paren 
(High en LOw) voor twee 
16-bits waarden (timerA: 
TALO + TAHI en PALO + 
PAHI). De twee paren liggen 
op hetzelfde adres, maar het 
ene kan alleen worden gele¬ 
zen en het andere alleen be¬ 
schreven. Bij beschrijving 
van een register van een ti¬ 
mer komt de startwaarde in 
een latch (signaal buffer) te 
staan. Die waarde wordt in 
het telregister geschreven en 



De timer (tijdteller): 
Voor lezen (read) 


Register 

Naam 

D7 

D6 

D5 

D4 

D3 

D2 

Dl 

DO 

4 

TALO 

TAL 7 

TAL 6 

TAL 5 

TAL 4 

TAL 3 

TAL 2 

TAL1 

TALO 

5 

TAHI 

TAH7 

TAH6 

TAH5 

TAH4 

TAH3 

TAH2 

TAHI 

TAH0 

6 

TBLO 

TBL7 

TBL6 

TBL5 

TBL4 

TBL3 

TBL2 

TBL1 

TBLO 

7 

TBHI 

TBH7 

TBH6 

TBH5 

TBH4 

TBH3 

TBH2 

TBHI 

TBH0 

Voor schrijven 

(write) 







Register 

Naam 

D7 

D6 

D5 

D4 

D3 

D2 

Dl 

DO 

4 

PALO 

PAL 7 

PAL 6 

PAL 5 

PAL 4 

PAL 3 

PAL 2 

PAL1 

PALO 

5 

PAHI 

PAH7 

PAH6 

PAH5 

PAH4 

PAH3 

PAH2 

PAHI 

PAH0 

6 

PBLO 

PBL7 

PBL6 

PBL5 

PBL4 

PBL3 

PBL2 

PBL1 

PBLO 

7 

PBHI 

PBH7 

PBH6 

PBH5 

PBH4 

PBH3 

PBH2 

PBHI 

PBH0 
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Bitconfiguratie van stuurregister A: 

Register 14 ($E), naam: CRA 

D7 D6 D5 D4 D3 

D2 

Dl 

DO 

niet SPMODE INMODE LOAD 

RUNMODE 

OUTMODE 

PBon 

START 

gebr 0=ingang 0=klok l=force 0=cont . 

0=puls 

0=PB6uit 0=uit 

uikt l=uitg 1=CNT load 

l=one 

l=toggle 

l=PB6aan l=aan 


strobe 

shot 




Bitconfiguratie van stuurregister B: 




Register nummer 15 

($F), naam: CRB 




D7 D6+D5 

D4 

D3 

D2 

Dl 

DO 

ALARM INMODE 

LOAD 

RUNMODE 

OUTMODE 

PBon 

START 

0=TOD 00=klok 

l=force 

0=cont . 

0=pulse 

0=PB7uit 0=uit 

l=alarm 01=CNT 

load 

l=one 

l=toggle 

l=PB7aan l=aan 

10=timerA 

(strobe] 

shot 




ll=timerA+ 





CNT 






De teller (event-counter): 





Register Naam 

D7 D6 

D5 D4 

D3 D2 

Dl 

DO 

8 $8 EventLSB 

E7 E6 

E5 E4 

E3 E2 

El 

EO 

9 $9 Event8-15 

E15 E14 

E13 E12 

Eli E10 

EO 9 

E08 

10 $A EventMSB 

E23 E22 

E21 E20 

E19 E18 

E17 

E16 


afgeteld totdat de teller op 
underflow (onderloop) komt; 
de teller staat dan op nul. De 
waarde in de signaalbuffer 
gaat automatisch opnieuw 
naar het telregister voor een 
volgend gebruik. 

Lezing van een timer-register 
levert de actuele waarde. Het 
is eenvoudig in te zien dat dat 
alleen zin heeft als op dat 
moment de teller wordt ge¬ 
stopt. Stel dat de teller op 
$0100 staat. Lezing van re¬ 
gister 5 levert het hoge byte 
van de actuele tellerstand: 
$01. Maar voordat u de kans 
krijgt register 4 te lezen, is er 
een telpuls die de tellerstand 
verlaagt tot $00FF. Het lage 
byte is nu $FF: als tellerstand 
wordt dus gelezen $01 FF. 
Stilzetten van de teller is 
geen oplossing: tijdens de 
leesprocedure worden de tel- 
pulsen niet afgeteld. 

De volgende procedure biedt 
een controlemogelijkheid: 
lees het hoge byte, het lage 
byte en nog eens het hoge 
byte. Als de twee waarden 
van het hoge byte gelijk zijn, 
is die waarde correct; zo niet, 
dan volgt een herhaling van 
de procedure. 

In het stuurregister definiëren 
bit 5 (timerA) en de bits 5 en 
6 (timerB) welk signaal de 
teller verlaagt. 

Bij timerA zijn maar twee 
bronnen mogelijk: 

0 1. Het klokpuls (INMODE 
= 0). De telfrequentie is 
716kHz, omdat de CIA’s 
werken met de E-klok van 
de processor. 

0 2. Het high-puls op de 
CNT-lijn (INMODE = 1). 

Bij timerB zijn er vier modi 
van de ingang: 

° 1. Klokcyclus (INMODE- 
bits = 00, binair: het eerste 
cijfer is bit 6 en het tweede 
bit 5). 

0 2. VNT-puls (INMODE- 
bits = 01). 

0 3. Onderloop van timerA 
(INMODE-bits = 10; de ti¬ 
mers vormen samen een 


32-bits timer). 

° 4. Samenvallen van onder¬ 
loop van timerA met high- 
nivo van de CNT-lijn (IN¬ 
MODE-bits = 11; biedt de 
mogelijkheid de lengte van 
een puls op de CNT-lijn te 
meten). 

De onderloop van een teller 
wordt geregistreerd in het in- 
terruptstuurregister (ICR). 
Bit nummer 0 (TA-bit) wordt 
gezet bij onderloop van time¬ 
rA, bit nummer 1 (TB-bit) 
voor timerB. Net als de ande¬ 
re bits van het ICR blijven 
deze bits gezet, totdat het re¬ 
gister wordt gelezen. Het is 
ook mogelijk de onderloop 
van de timers uit te voeren 
via de parallel poort B: als in 
het stuurregister van een tel¬ 
ler (CRA of CRB) de PBon- 
bit is gezet, verschijnt elke 
onderloop op de bijbehoren¬ 
de lijn van de poort (PB6 
voor timerA en PB7 voor ti¬ 
merB). 

Het OUTMODE-bit laat u de 
keus tussen twee uitvoermo- 
di: 


OUTMODE = 0 (pulse 
mode) Elke onderloop ver¬ 
oorzaakt een positieve puls 
op de bijbehorende lijn van 
de poort met de lengte van 
een cyclus. 

OUTMODE = 1 (toggle 
mode) Elke onderloop ver¬ 
oorzaakt een wisseling van 
het signaal (high of low) op 
de lijn. Bij de start van een ti¬ 
mer begint de uitvoer altijd 
met high. 


regelt de activiteit van een 
teller. De waarde 0 brengt de 
teller tot stilstand; de waarde 
1 brengt hem op gang. 

Het RUNMODE-bit kiest uit 
de modi ’one shot’ en ’conti- 
nuous’. In de eerste modus 
stopt de timer na elke onder¬ 
loop en zet hij het START-bit 
terug op 0. In de continuous- 
mode (herhalende mode) be¬ 
gint de timer na de onderloop 
op de startwaarde. 

We vermelden reeds dat een 
waarde niet rechtstreeks in 


Fig. 4: De filter schakeling 
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wordt geschreven, maar dat 
dat via een signaalbuffer ge¬ 
beurt. Die signaalbuffer 
(latch) heet ook wel prescaler 
(maatgever, schaalverklei- 
ner); het aantal malen per se¬ 
conde dat onderloop op¬ 
treedt, is gelijk aan de telfre- 
quentie gedeeld door de 
waarde in de prescaler. 

De waarde in de signaalbuf¬ 
fer kan in drie situaties naar 
de teller worden verstuurd: 

1. Het LOAD-bit van het ICR 
is gezet (force load): de waar¬ 
de in de signaalbuffer gaat 
naar de teller, onafhankelijk 
van de status daarvan. Het 
LOAD-bit is een strobe-bit: 
hij wordt niet opgeslagen, 
maar hoeft alleen maar een 
handeling op gang te bren¬ 
gen. Voor een volgende force 
load moet u weer een 1 in het 
LOAD-bit schrijven. 

2. De waarde in de signaal¬ 
buffer gaat automatisch naar 
de teller bij elke onderloop. 

3. De waarde in de signaal¬ 
buffer gaat automatisch naar 
de teller na de beschrijving 
van liet timerhigh-register, 
mits de teller op dat moment 
stilstaat (START = 0). Werkt 
daarom altijd met de volgor¬ 
de lage byte - hoge byte. 
Zoals al eerder vermeld is de 
8520 een afstammeling van 
de 6526 uit de C64 tijd. Bij 
de 6526 bevond zich op deze 
plek een realtime clock (pen 
naam: Time Of Day, afgekort 
TOD). Commodore heeft 
nooit de moeite genomen om 
deze naam bij de 8520 te ver¬ 
anderen ook al heeft deze pen 
nu een andere functie. De 
huidige functie van de TOD 
registers is als een simpele 24 
bitsteller (event counter). De 
24 bits geven de event coun¬ 
ter een bereik van 0 tot en 
met 16777215 ($FFFFFF). 
Bij iedere positieve puls op 
de TOD lijn (wisseling van 
Low naar High) gaat de teller 
1 omhoog, als de event coun¬ 
ter de stand $FFFFFF heeft 
bereikt springt de teller auto¬ 
matisch terug naar 0. U kunt 
de teller starten vanaf de 
waarde die u in de tel regis¬ 
ters schrijft. Register 8 bevat 
de bits 0 tot en met 7 van de 


teller: ze vormen de laagste 
byte (LSB, Least Significant 
Byte). Register 9 bevat de 
bits 8 tot en met 15 (de mid¬ 
delste byte) van de teller en 
register 10 ($A) bevat de 
hoogste byte van de teller 
waarde (MSB, Most Signifi¬ 
cant Byte). 

De teller staat tijdens het 
schrijven altijd stil: dat voor¬ 
komt fouten bij de overdracht 
van het ene naar het andere 
register. Pas nadat de waarde 


in het LSB register is ge¬ 
schreven, loopt de teller ver¬ 
der. In de meeste gevallen is 
het dus het beste de registers 
te beschrijven in de volgorde: 
10 (MSB, $A), 9, 8 (lSB). 
De 8520 heeft ook een 'wek¬ 
ker’: als u van het stuurregis- 
ter CRB de ALARM-bit (bit 
nummer 7) de waarde 1 
geeft, kunt u in de registers 8 
tot en met 10 een alarm waar¬ 
de zetten. Zodra de waarde 
van de event counter gelijk is 
aan de alarmwaarde, wordt 


het ALARM-bit van het in- 
terruptstuurregister (ICR, In- 
terrupt Control Register) ge¬ 
zet. In deze mode kunt u al¬ 
leen schrijven in de registers. 
Een leespoging van de alarm¬ 
waarde mislukt: u krijgt altijd 
de actuele stand van de teller 
terug. De status van het 
ALARM-bit van het CRB 
heeft daar geen invloed op. 
De seriële poort: 

Register naam D7 D6 D5 D4 
D3 D2D1 DO 


Fig. 5: De bootselector 

12 $C SDR S7 S6 S5 S4 
S3 S2 SI S0 

De seriële poort bestaat 
hoofdzakelijk uit het seriële 
gegevensregister (SDR, Seri- 
al Data Register) en een 8- 
bits schuifregister, dat u niet 
zelf kunt gebruiken. Met be¬ 
hulp van de SPMODE-bit 
van het stuurregister A kiest 
u uit de status als ingang 
(SPMODE=0) en als uitgang 
(SPMODE=l). In de invoer- 
mode gaan seriële gegevens 


bij een positieve flank van de 
CNT-lijn naar het schuifre¬ 
gister. Na acht CNT-pulsen is 
dat vol en gaat de inhoud 
naar het seriële gegevensre¬ 
gister. Dat gaat gepaard met 
het zetten van het SP-bit van 
het interruptstuurregister (In- 
terrupt Control Register). Als 
er weer CNT-pulsen komen, 
gaan de volgende gegevens 
naar het schuifregister, totdat 
dat weer vol is. Als u intussen 
het seriële gegevensregister 
(SDR, Seriaï Data Register) 
hebt gelezen, wordt de nieu¬ 
we waarde naar het SDR ge¬ 
kopieerd. De transmissie be¬ 
staat uit een voortdurend her¬ 
haling van deze cyclus. 

Als SPMODE gelijk is aan 1, 
is de seriële poort in de uit- 
voermode. Het aantal keren 
per seconde dat timer A on¬ 
derloop heeft in de continu- 
ous-mode, is maatgevend 
voor de baud-rate (het aantal 
bytes per seconde). De gege¬ 
vens worden minstens in een 
tempo van eens per tweemaal 
onderloop doorgestuurd. De 
maximale transmissiesnel¬ 
heid is een vierde van de 
klokfrequentie van de 8520. 

Transmissie 

Als de transmissie begint na¬ 
dat het eerste byte is geschre¬ 
ven in het SDR. De CIA ko¬ 
pieert het databyte naar een 
schuifregister en de databits 
komen er een voor een, eens 
per tweemaal onderloop van 
timerA op de lijn SP. Het 
kloksignaal van timerA staat 
daarbij op de lijn CNT. Het 
nivo van die lijn wisselt bij 
elke onderloop van timerA, 
en bij elke negatieve flank 
(wisseling van high naar low) 
verschijnt het volgende bit op 
de lijn SP. Van een databyte 
wordt eerst het MSB ver¬ 
stuurd. Als alle acht bits zijn 
verstuurd, blijft het CNT 
hoog en de lijn SP op het nivo 
van de laatst uitgevoerde bit. 
Tevens wordt het SP-bit van 
het interruptstuurregister ge¬ 
zet; dat is het teken dat het 
schuifregister nieuwe gege¬ 
vens mag opnemen. Als er al 
voor de versturing van het 
laatste bit een databyte in het 


(ICR, Interrupt Control Register): 

Bij lezen (read): gegevensregister 
Register Naam D7 D6 D5 D4 D3 D2 Dl DO 


13 $D ICR IR 0 0 FLAG SP ALARM TB TA 

Bij schrijven (write): maskerregister 

(sjabloonregister) 

Register Naam D7 D6 D5 D4 D3 D2 Dl DO 


13 $D ICR S/C x FLAG SP ALARM TB TA 











A 


m 


i 


g 


a 


CIA-A: registeradressen: 

Adres Naam D7 D6 D5 D4 D3 D2 

Dl 

D0 

$BFE001 

PRA 

/FIR1 /FIR0 /RDY /TK0 /WPR0 /CHNG /LED 

/ OVL 

$BFE101 

PRB 

Centronics parallel poort 



$BFE201 

DDRA 

0 0 0 0 0 0 

1 

1 

$BFE301 

DDRB 

Afhankelijk van de toepassing als 

ingang 

of uitgang 

$BFE401 

TALO 

Het besturingssysteem gebruikt timerA voor 

$BFE501 

TAHI 

communicatie met het toetsenbord 



$BFE601 

TBLO 

Het besturingssysteem gebruikt timerB voor 

$BFE701 

TBHI 

diverse taken 



$BFE801 

E.LSB 

De event-counter van CIA-A telt de 

50 Hz 

-impulsen 

$BFE901 

E.8-15 uit het voedingsgedeelte (ticks); 

deze worden 

$BFEA01 

E. MSB 

ontleend aan de netfrequentie 



$BFEB01 

SP 

Opname van codes vanaf het toetsenbord 


$BFEC01 

ICR 

Interruptstuurregister 



$BFEE01 

CRA 

Stuurregister A 



$BFEF01 

CRB 

Stuurregister B 




gegevensregister is geschre¬ 
ven, gaat de transmissie zon¬ 
der onderbreking verder. 

Om een doorlopende trans¬ 
missie te bereiken moet u er¬ 
voor zorgen dat het seriële 
gegevensregister op tijd 
wordt voorzien van nieuwe 
gegevens. 

De SP- en de CNT-lijnen zijn 
uitgevoerd als open collec- 
tor-uitgangen: via deze lijnen 
kunt u een aantal 8520’s aan 
elkaar koppelen. 


Het 

interruptstuurregister 

Het ICR bestaat uit een gege¬ 
vensregister en een masker- 
register. Alle vijf interrupt- 
bronnen mogen hun bit zet¬ 
ten in het gegevensregister. 
Voor de volledigheid som¬ 
men we ze nog eens op: 

1. Onderloop van timerA 
(TA, bit 0); 

2. Onderloop timerB (TB, bit 

1) ; 

3. Gelijkheid van de waarde 
van de Event Counter en de 
alarmwaarde (ALARM, bit 

2 ) ; 

4. Het schuifregister van de 
seriële poort is vol (bij in¬ 
voer) of leeg (bij uitvoer) 
(SP, bit 3); 

5. Negatieve flank op de 
FLAG-ingang (FLAG, bit 4). 

Als u het ICR leest, krijgt u 
altijd de inhoud van het gege¬ 
vensregister. Dat wordt tege¬ 


lijkertijd gewist: alle bits, in¬ 
clusief IR, worden terugge¬ 
zet! Als u verwacht de waar¬ 
de in het gegevensregister 
nog nodig te hebben, moet u 
die opslaan in het RAM. 

In het maskerregister kunt u 
alleen schrijven. De waarde 
bepaalt welke bits van het ge¬ 
gevensregister een interrupt 
mogen veroorzaken. Daartoe 
moet zo een bit de waarde 1 
hebben. Zodra een bit zowel 
in het gegevensregister als in 
het maskerregister is gezet, 
zet de 8520 de lijn IRQ (In¬ 
terrupt ReQuest) op 0: dat 
veroorzaakt een interrupt in 
de processor, omdat de lijn 
IRQ 0-actief is. Bovendien 
maakt de 8520 de IR-bit van 
het gegevensregister (bit 7) 
gelijk aan 1, zodat de inter¬ 
rupt ook softwarematig is te¬ 
rug te vinden. Pas als het ICR 


is gelezen en dus het gege¬ 
vensregister is gewist, gaat 
de lijn IRQ terug naar 1. 

De beschrijving van het mas¬ 
kerregister verloopt anders 
dan bij een gewone geheu- 
genplaats: die is alleen moge¬ 
lijk als tegelijkertijd het be¬ 
doelde bit en het S/C bit 
(Set/Clear, bit 7) worden ge¬ 
zet. De overige bits blijven 
dan onverandert. Als u het 
S/C bit definieert dus of de 
die u in uw masker opgeeft, 
worden gezet (S/C = 1) of ge¬ 
wist (S/C = 0). De niet gezet¬ 
te bits in het masker hebben 
geen invloed op de bits in het 
maskerregister. 

Veronderstel dat de inhoud 
van het maskerregister nu 
(binair) 00000011 is (beide 
timer-interrupts toegestaan). 
Stel dat u alleen een interrupt 
via de FLAG-lijn wilt toe¬ 


staan. Voor deze verandering 
moet u 10010000 in het mas¬ 
kerregister schrijven: S/C = 
1, zodat het gezette bit 
(FLAG, bit 5) het overeen¬ 
komstige bit van het masker¬ 
register zet. Als resultaat van 
de bewerking heeft het mas¬ 
kerregister de inhoud 
00010011. 

Om vervolgens de timer-in- 
terrupt onmogelijk te maken 
gebruikt u de waarde 
00000011: het S/C bit is 0, 
zodat de gezette bits worden 
gewist (nummer 1 en 0, TB 
en TA). Het resultaat in het 
maskerregister is dus 
00010000. Van nu af kan al¬ 
leen FLAG nog een interrupt 
veroorzaken. 

De plaats van de 
8520’s 

Het basisadres van de eerste 
CIA (8520A) is $BFE001. 
Zijn registers liggen niet op 
opeenvolgende posities, 
maar met tussenruimten van 
256 bytes: alle adressen van 
de 8520A zijn oneven, omdat 
hij met de acht laagste lijnen 
van de adresbus is verbonden 
(D0-D7). 

De tweede CIA (CIA-B) is 
bereikbaar via adres 
$BFD000. Zijn registers lig¬ 
gen op de even adressen, om¬ 
dat de databus van CIA-B is 
verbonden met de bovenste 
helft van de databus van de 
processor. 


CIA-B: registeradressen 


Adres 

Naam 

D7 

D6 

D5 

D4 

D3 

D2 

Dl 

DO 

$BFD000 

PRA 

/DTR 

/RTS 

/CD 

/CTS 

/DSR 

SEL 

POUT 

BUSY 

$BFD100 

PRB 

/MTR 

/ SEL3 

/ SEL2 

/ SEL1 

/SEL0 

/SIDE 

DIR 

/STEP 

$BFD200 

DDRA 

1 

1 

0 

0 

0 

0 

0 

0 

$BFD300 

DDRB 

1 

1 

1 

1 

1 

1 

1 

1 


$BFD400 TALO 
$BFD500 TAHI 
functie 
$BFD600 TBLO 
$BFD7 00 
$BFD800 
$BFD900 
$BFDA00 
$BFDB00 
$BFDC00 
$BFDE00 
SBFDF00 


TimerA is alleen in gebruik bij seriële 
transmissie van gegevens, verder heeft hij geen 


TimerB synchroniseert de BLITTER 
TBHI met het scherm, verder heeft hij geen functie 
E.LSB De event-counter van CIA-B telt de impulsen 
E.8-15 van de horizontale synchronisatie; in het 
E.MSB PAL-formaat zijn dat er 15625 per seconde 
SP Niet in gebruik 
ICR Interruptstuurregister 
CRA Stuurregister A 

CRB Stuurregister B 
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A8520 

pen 

functie 

verklaring: 

PAO: 

BUSY 

parallel poort uitgang met SP verbonden 

PA1: 

POUT 

parallel poort ingang met CNT verbonden 

PA2: 

SEL 

parallel poort ingang 

PA3: 

-DSR 

seriële poort ingang via buffer MC1489A 

PA4 : 

-CTS 

seriële poort ingang via buffer MC1489A 

PA5: 

-CD 

seriële poort ingang via buffer MC1489A 

PA6: 

-RTS 

seriële poort uitgang via buffer MC1488 

PA 7 : 

-DTR 

seriële poort uitgang via buffer MC1488 

PBO: 

-STEP 

drive signaal step (track opschuiven) 

PB1: 

DIR 

drive signaal richting 

PB2: 

-SIDE 

drive signaal side-select (boven of onderkant) 

PB3: 

-SEL0 

drive signaal drive 0 

PB4: 

-SEL1 

drive signaal drive 1 

PB5: 

-SEL2 

drive signaal drive 2 

PB 6: 

-SEL3 

drive signaal drive 3 

PB 7 : 

-MTR 

drive signaal motor aan 

SP : 

BUSY 

parallel poort uitgang met PAO verbonden 

CNT: 

POUT 

parallel poort uitgang met PA1 verbonden 

-PC: 

niet in 

gebruik 

-FLAG: 

-INDEX 

drive signaal disk index 

l*TOD: 

-BHS 

Time Of Day 

TIMERA: 
TIME RB: 

niet in 

gebruik 

wordt gebruikt voor synchronisatie van de 
blitter met het beeldscherm 

B8520 

pen 

functie 

verklaring 

PAO: 

OVL 

Memory Overlay 

PA1: 

-LED 

Power-LED kontrole 

PA2 : 

-CHNG 

drive signaal Diskchange 

PA3: 

-WPRO 

drive signaal Disk write protect 

PA4 : 

-TK0 

drive signaal Track 0 

PA5: 

-RDY 

drive signaal Disk-Ready 

PA6: 

- JOYO 

Joystick poort 0 pen 6 (vuurknop) 

PA7: 

- JOY1 

Joystick poort 1 pen 6 (vuurknop) 

PB0-PB7 

-P0--P7 

parallel poort data lijnen 

SP : 

KDAT 

Keyboard data 

CNT: 

KCL 

Keyboard clock 

-PC: 

-DRDY 

parallel poort ingang strobe 

-FLAG: 

-ACK 

parallel poort uitgang Acknowledge 
(bevestiging) 

1* TOD: TICK 

TIMERA: 

TIMERB: 

Interrupts 

Time Of Day 

door het toetsenbord in gebruik 

virtuele Timer-Device voor Multitasking en 


Commodore geeft de adres¬ 
sen $BFD00Ö en $BFE001 
op als basisadressen van 
CIA-B respectievelijk CIA- 
A. Bij een nauwkeurige be¬ 
schouwing van het schema 
ontdekken we dat de twee 
CIA's mogen worden ge¬ 
adresseerd in het gehele ge¬ 
bied van AOxxxx tot BFxxxx. 
De adreslijnen Al2 en Al3 
activeren de CIA’s. Mits het 
adres ligt tussen AOxxxx en 
BFxxxx, activeert Al2 = 0 de 
CIA-A en geldt A13 = 0 voor 
CIA-B. Omdat de databus 


van CIA-A met de lijnen D0- 
D7 (oneven adressen) van de 
databus van de processor is 
verbonden en CIA-B met 
D8-D15 (even adressen), 
kunt u ze, met een woord, te¬ 
gelijk aanspreken (mits A12 
en A13 beide 0 zijn). 

De opdracht ’MOVE.W 
$BF0000, DO’ laadt de PA- 
registers van de twee CIA's 
in DO: de acht laagste bits 
van DO bevatten dan de in- 
houd van het PA-register van 
CIA-A en bit 9-15 die van het 
PA-register van CIA-B. 


Uit het voorgaande volgt een 
schema voor de adressering 
van een CIA. Kies CIA-A 
met behulp van (binair): 

101x xxxx xxxO rrrr 

XXXX XXX1 

CIA-B met: 

101x xxxx xxOx rrrr 
XXXX XXX0 

De vier bits ’rrrr’ definiëren 
het gewenste register. 

De pinbelegging van de 8520 


is zichtbaar in figuur 2. Hier 
onder volgt een overzicht van 
wat de verschillende pennen 
van de 8520 doen. Dit over¬ 
zicht is verschillend voor de 
A en de B versie van de 8520. 
De ’-’ voor een afkorting be¬ 
tekend dat de desbetreffende 
data lijn laag aktief is. 

l*TOD: Deze afkorting staat 
voor Time Of Day. Deze 
term stamt nog af van de 
voorganger van de 8520, na¬ 
melijk de 6526. Commodore 
heeft nooit de moeite geno¬ 
men om dit te veranderen. 
Voor de huidige betekenis 
moet men hierboven in de 
tekst kijken 

De parallel poort 

De parallel poort is de poort 
die meestal wordt gebruikt 
voor de printer. Een printer 
wordt ook wel aangestuurd 
via de serielepoort maar deze 
is lang niet zo snel. Verder 
wordt de parallelpoort van de 
Amiga onder andere gebruikt 
voor de volgende toepassin¬ 
gen: 

0 printer 
° sound sampler 
° video digitiser 
0 1/O kaarten 
° scanner 

° joystick (voor Gauntlet 
e.d.) 

0 dongles (sleutels voor be¬ 
veiligde software) 

° fax 

Besturing 

De parallel poort wordt be¬ 
stuurt door de CIA 8520 
chips. Deze chips hebben al 
een eigen reputatie opge¬ 
bouwd wat betreft het stuk 
gaan. Indien uw Amiga het 
niet meer doet (of een van de 
connectors werkt niet meer) 
is er een kans van 90% dat 
een van de 8520 chips kapot 
is. 

Om te controleren of er een 
8520 kapot is raden we aan 
om bij een vreemde (de buur¬ 
man?) Amiga de 8520’s uit 
hun voetjes te wippen en 
deze in uw eigen favoriete 
Amiga te prikken. Denk er 









female 



Fig. 6: Onderzijde print in spiegelbeeld 



Fig. 7: Bovenzijde print 









Fig. 8: Componenten opstelling 


Benodigde componenten: 



* IC1 

SN 74HCT540 



* IC2 

SN 74HCT04 



* D1-D8 

LED 3mm kleur rood 



* D9 

LED 3mm kleur geel 



* D10-D14 

LED 3mm kleur groen 



* R1-R14 

330 ohm 



* Cl 

100 nF 



* C2 

100 niF/25V staand model 


* JP1 

3 polige pennen strip 

en een codeerbrug 

* 

SUB D connector haaks 

print montage 

female 

* 

SUB D connector haaks 

print montage 

male 

* 

geïsoleerd draad voor 

de beide 



draadbruggen 




bij het uithalen van de kost¬ 
bare chips (F1 55,)) erom dat 
de pootjes niet ombuigen. Dit 
kan men voorkomen door het 
IC er met een klein schroeve- 
draaiertje voorzichtig uit te 
wippen (gelijkmatig aan bei¬ 
de kanten). 

Door nu een beetje te wisse¬ 
len met de kapotte en de goe¬ 
de 8520’s heeft uw een goed 
werkende Amiga en de ander 
een kapotte. 

Enkele voorbeelden 

Om nu het gebruik van de 
8520’s te demonstreren, heb¬ 
ben we twee kleine bouwpro¬ 
jecten en een grote voor u be¬ 
dacht. 

Het zal menigeen duidelijk 
zijn dat het bij de huidige 
Amiga’s mogelijk is het ge- 
luids filter te schakelen door 
de POWER-LED aan of uit te 
schakelen. We konden dit al 
softwarematig doormiddel 
van: 

BASIC: 

POKE 12574721, 2 
;LED/filter aan 
POKE 12574721, 253 
;LED/filter uit 

Assembler: 

MOVE.B #2, $BFE001 
;LED/filter aan 
MOVE.B #253, 

$BFE001 

;LED/filter uit 

In figuur 4 kunt u het een¬ 
voudige schema zien. Het 
schema is door iedereen te 
bouwen, het is zelfs Hans ge¬ 
lukt. Het principe van de 
LED switch is: we onderbre¬ 
ken gewoon het pootje van de 
8520 waaraan het LEDje/fil¬ 


ter is aangesloten en plaatsen 
hier een schakelaar tussen. In 
de ene stand is het pootje ge¬ 
woon doorverbonden en 
functioneert het geheel nor¬ 
maal, en in de andere stand 
kunnen we met de tweede 
schakelaar kiezen in welke 
stand het LEDje/filter moet 
staan. Het bewuste pootje 
van de 8520 is pootje 3 van 
de 8520-A. We maken ge¬ 
bruik van drie extra voetjes 
waarvan we pootje drie van 
het bovenste voetje naar bui¬ 
ten toe buigen. Verder wordt 
het derde pootje van het 
tweede voetje geheel verwij¬ 
derd. Nu kan men de bedra¬ 
ding eraan solderen en de 
schakelaars. Ten slotte druk¬ 
ken we de drie voetjes in el¬ 
kaar en drukken we het ge¬ 
vaarte in de Amiga (met er 
bovenop de 8520). 

Het tweede simpele voor¬ 
beeld is de altijd zeer bruik¬ 
bare bootselector. In de win¬ 
kel hebben ze het lef om hier¬ 
voor F130,- te vragen, maar 
indien u 20 minuten dé tijd 
neemt, kan u de bootselector 
bouwen voor F19,95. De 
bootselector is een schake¬ 
laar die het mogelijk maakt 
om doormiddel van een scha¬ 
kelaar te kiezen vanaf welke 
drive moet worden geboot 
(dfO: of df 1:). In figuur 5 
kunt u het volledige schema 
zien. Net als bij de LED- 
switch, moét men de 8520 uit 
zijn voetje halen om er drie 
voetjes onder te zetten (al¬ 
leen hebben we hier te maken 
met de 8520 die het dichst bij 
de disk-drive zit (A500). 

Bij dit ontwerp vouwen we 
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de pootjes 13 en 14 om van 
het IC voetje 1. Verder ver¬ 
wijderen we de pennetjes 13 
en 14 van het tweede voetje. 
Nu kunnen we het geheel in 
elkaar solderen, let wel: de 
schakelaar moet dubbel po- 
lig-om zijn. Verder monteren 
we het bouwsel in de Amiga 
op dezelfde manier als bij de 
LED/filter switch, maar dan 
onder de 8520-B. 

Als laatste volgt er dan nu 
nog een parallel monitor. Met 
behulp van een parallel mo¬ 
nitor kan de gebruiker zien 
hoe de lijnen van de parallel 
poort staan (hoog of laag). 
Tevens is het mogelijk om 
met de parallel monitor te kij¬ 
ken of het gedeelte van de 
8520 dat de parallel poort re¬ 
gelt kapot is. 

Een van de schrijvers van dit 
artikel vond op deze manier 
waarom zijn Amiga zo moei¬ 
lijk deed met het printen van 
een stukje tekst, het bleek dat 
er een 8520 kapot was. 

Hoe werkt de 
parallel-poort monitor 

De werking van dit ontwerp 
is vrij eenvoudig. De beide 
IC’s werken als buffer om de 
LED’s aan te sturen, de 
8520’s in de Amiga gaan be¬ 
slist stuk als ze een LED 
rechtstreeks zouden moeten 
aansturen. 

De print is zo ontworpen dat 
elke LED gaat branden als de 
bijbehorende data lijn actief 
wordt. Dit houdt in dat de 
LED’s 9, 10 en 11 gaan bran¬ 
den als de spanning op de bij¬ 
behorende aansluiting laag 
(0V) is. De overige LED’s 
gaan branden als de spanning 
hoog (+5V) is. 

Welke LED geeft nu 
wat aan? 


Dl 

datalijn 

0 

D2 

datalijn 

1 

D3 

datalijn 

2 

D4 

datalijn 

3 

D5 

datalijn 

4 

D6 

datalijn 

5 

D7 

datalijn 

6 

D8 

datalijn 

7 

D9 

-RESET 


D10 

-STROBE 



Dll -ACK 
D12 SEL 
D13 POUT 
D14 BUSY 

Bouw 

Voor het bouwontwerp is een 
dubbelzijdig geetste print- 
plaat nodig (zie afbeelding 6 
en 7). Deze afbeeldingen zijn 
in schaal 1 op 1 afgedmkt en 
kunt u direct gebruiken. 
Denk er wel om dat de onder¬ 
zijde (afbeelding 6) in spie¬ 
gelbeeld is afgedrukt en dat 
de bovenzijde (afbeelding 7) 
niet in spiegelbeeld is afge¬ 
drukt. Als u de printplaat 
heeft kunt u beginnen met de 
opbouw. Hierbij kan men het 
beste beginnen met de beide 
draad bruggen en de doorver¬ 
binding van de bovenzijde en 
de onderzijde van de print 
naast D9. Dan volgen de on¬ 
derdelen die aan beide zijde 
van de print gesoldeerd moe¬ 
ten worden (de beide IC’s, de 
weerstand naast Dl 1, de bei¬ 
de connectors en de jumper). 
Als u voor de IC’s voetjes 
wilt gebruiken kunt u alleen 
IC-voetjes gebruiken met 
professioneel gedraaide bus- 
contacten. Voor de beide 
connectors heeft u SUB D 
connectors nodig met haakse 
aansluiting voor print monta¬ 
ge. Let er wel op dat deze 
connectors ook van bovenaf 
gesoldeerd moeten kunnen 
worden. 

Hierna kunt u de overige 
weerstanden staand in de 
print solderen. Deze zijn in 
afbeelding 8 niet genum¬ 
merd omdat alle weerstanden 
dezelfde waarden hebben en 
u zich dus niet kunt vergis¬ 
sen. Denk er bij de LED’s om 
dat u ze goed om in de print 
steekt, de LED’s 9, 10 en 11 
zitten andersom als de LED’s 
12, 13 en 14! Als laatste kunt 
u de beide condensators 
monteren. Zet C2 wel goed 
om in de print! 

Om de print voor alle Ami¬ 
ga’s geschikt te maken is de 
jumper(JPl) toegevoegd. In 
stand 1 (zie afbeelding 8) 
werkt de print alleen op een 
Amiga 1000. Tevens dient 
voor de Amiga 1000 bij beide 
SUB-D connectors pen 25 


recht gebogen te worden. 
Vervolgens moet men deze 
pennen met een stukje draad 
aan elkaar verbinden. Het 
LEDje -RESET zal dan altijd 
blijven branden. In stand 2 
werkt de print met de overige 
Amiga’s (A500, A2000, 

A2500, A3000). U kunt na¬ 
tuurlijk ook een stukje draad 
gebruiken als u de print al¬ 
leen op uw eigen type Amiga 
gebruikt. 

Voordat u de print aan uw 
Amiga aansluit moet u de 
print goed nakijken op even¬ 
tuele fouten. Sluit de print al¬ 
leen aan als de Amiga en de 
printer beide uit zijn. 

Software 

Het programma is dit keer in 
BASIC geschreven, zodat ie¬ 
dereen dit kan intikken en ge¬ 
bruiken. Als u het program¬ 
ma heeft ingetikt en naar disk 
heeft weggeschreven kunt u 
het programma starten. Op 
het scherm verschijnen dan 
14 vierkantjes in dezelfde op¬ 
stelling als de LED’s op de 
print. Tevens verschijnen er 
dan nog 5 rechthoeken met 
de teksten: NEXT, LAST, 
PLAY, STOP en 0. Als u nu 
een van de 14 vierkantjes 
aanklikt veranderd deze van 
kleur en licht het bijbehoren¬ 
de LEDje op de print ook op 


(alleen als de print is aange¬ 
sloten natuurlijk!), behalve 
de bovenste 3 vierkantjes, 
deze kunt u wel aanklikken 
maar de bijbehorende LED 
zal niet op lichten. 

Als u nu een aantal van de 11 
vierkantjes die wel van kleur 
kunnen veranderen in een be¬ 
paald patroon heeft aange¬ 
klikt kunt u NEXT of LAST 
aanklikken. U zult zien dat 
vierkantjes weer allemaal de¬ 
zelfde kleur hebben en dat de 
0 een 1 dan wel een 15 is ge¬ 
worden. U kunt nu weer een 
nieuw patroon maken. Als u 
alle 16 patronen heeft kunt u 
PLAY aanklikken en u zult 
zien dat de patronen die u 
heeft ingevoerd een voor een 
op het scherm en op de print 
zichtbaar worden. Door nu 
op de linker-muis toets te 
drukken stopt het weergeven 
van de afzonderlijke patro¬ 
nen en springt de teller terug 
op nul. 

Tot slot 

Dit artikel is geschreven/ge¬ 
maakt door D.J. Brandt en H. 
van der Pol. Alle bouwpro¬ 
jecten zijn meerdere keren 
gebouwd en getest. De schrij¬ 
vers en Commodore Info 
kunnen niet aansprakelijk 
worden gesteld voor eventu¬ 
ele fouten. 


Hieronder volgt het programma in Amiga-Basic: 

REM (c) D.J. Brandt 

REM voor Commodore Info 

POKE 12575489&,255 

REM DDRB CIA-A op uitgang zetten 

POKE 12571136&,199 

REM DDRA CIA-B op uitgang zetten 

adressi = 12574977& 

REM PRB CIA-A 
adress2 = 12570624& 

REM PRA CIA-B 
POKE adressi,0 

REM alle uitgangen van PRB uitzetten 
POKE adress2,0 

REM alle uitgangen van PRA uitzetten 
DIM prb(16),pra(16) 

ON MOUSE GOSUB sstop 

REM wordt pas actief na MOUSE ON 

CLS 

FOR i = 0 TO 7 

LINE (118+i*40,130)-(138+i*40,140),l,bf 
NEXT i 

REM tekent horizontaal 8 vierkantjes 
FOR i = 0 TO 5 

LINE (440,14+i*24)- (460,24+i*24),l,bf 
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NEXT i 

REM tekent vertikaal 6 vierkantjes 
LINE (168,26)-(208,44),l,b 
LINE (148,60)-(168,44), 1 
LINE (228, 60)-(208,44), 1 


teller 

= 0 



LOCATE 

5,23 : 

PRINT teller 

LOCATE 

19, 16 

PRINT 

"DO Dl 

D4 

D5 

D6 D7 

H 

LOCATE 

3, 60 

PRINT 

"RESET" 

LOCATE 

6, 60 

PRINT 

M STROBE" 

LOCATE 

9, 60 

PRINT 

" ACK" 

LOCATE 

12, 60 

PRINT 

"SEL" 

LOCATE 

15, 60 

PRINT 

"POUT" 

LOCATE 

18, 60 

PRINT 

"BUSY" 

FOR i=0 

TO 3 




LINE (118+i*80, 60)-(178+i*80,74), l,b 
NEXT i 

REM tekent horizontaal 4 rechthoeken 
LOCATE 9,17 : PRINT "NEXT" 

LOCATE 9,27 : PRINT "LAST" 

LOCATE 9,37 : PRINT "PLAY" 

LOCATE 9,47 : PRINT "STOP" 

LINE (358,60) - (418,74),3,b 
mousecheck: 

IF MOUSE(0)<1 GOTO mousecheck: 

CALL muis(x,y) 

REM roept de subroutine muis aan 
REM in de variabele x staat de x-positie 
van de muispointer 

REM in de variabele y staat de y-positie 
van de muispointer 

IF x>118 AND x<138 AND y>130 AND y<140 
THEN GOSUB d0 

IF x>158 AND x<178 AND y>130 AND y<140 
THEN GOSUB dl 

IF x>198 AND x<218 AND y>130 AND y<140 
THEN GOSUB d2 

IF x>238 AND x<258 AND y>130 AND y<140 
THEN GOSUB d3 

IF x>278 AND x<298 AND y>130 AND y<140 
THEN GOSUB d4 

IF x>318 AND x<338 AND y>130 AND y<140 
THEN GOSUB d5 

IF x>358 AND x<378 AND y>130 AND y<140 
THEN GOSUB d6 

IF x>398 AND x<418 AND y>130 AND y<140 
THEN GOSUB d7 

IF x>440 AND x<460 AND y>110 AND y<120 
THEN GOSUB pout 

IF x>440 AND x<460 AND y>134 AND y<144 
THEN GOSUB busy 

IF x>440 AND x<460 AND y>86 AND y<96 
THEN GOSUB sel 

IF x>118 AND x<178 AND y>60 AND y<74 
THEN GOSUB nnext 

IF x>198 AND x<258 AND y>60 AND y<74 
THEN GOSUB last 

IF x>278 AND x<338 AND y>60 AND y<74 
GOTO play 


POKE adress2,pra(teller) 

REM schrijft de waarde pra(teller) naar 
PRA 

GOTO mousecheck 
d0 : 

IF POINT (120,135)=1 THEN 

REM afhankelijk van de kleur van het 
REM vierkantje wordt de waarde 
REM prb(teller) verhoogd danwel ver- 
REM laagd. 
a = 2 

prb(teller) = prb(teller) + 1 
ELSE 

a = 1 

prb(teller) = prb(teller) - 1 
END IF 

LINE (118,130)-(138,140),a,bf 
REM het vierkantje krijgt hier een nieuw 
kleurtje 
RETURN 
dl: 

IF POINT (160,135)=1 THEN 
a = 2 

prb(teller) = prb(teller) + 2 
ELSE 

a = 1 

prb(teller) = prb(teller) - 2 
END IF 

LINE (158,130)-(178,140),a,bf 
RETURN 
d2: 

IF POINT (200,135)=1 THEN 
a = 2 

prb(teller) = prb(teller) + 4 
ELSE 

a = 1 

prb(teller) = prb(teller) - 4 
END IF 

LINE (198,130)-(218,140),a,bf 
RETURN 
d3 : 

IF POINT (240,135)=1 THEN 
a = 2 

prb(teller) = prb(teller) + 8 
ELSE 

a = 1 

prb(teller) = prb(teller) - 8 
END IF 

LINE (238,130)-(258,140),a,bf 
RETURN 
d4 : 

IF POINT (280,135)=1 THEN 
a = 2 

prb(teller) = prb(teller) + 16 
ELSE 

a = 1 

prb(teller) = prb(teller) - 16 
END IF 

LINE (278,130)-(298,140),a,bf 
RETURN 


LOCATE 1, 1 
PRINT " 

IF x>440 AND x<460 AND y>14 AND y<24 
THEN GOSUB text 

IF x>440 AND x<460 AND y>38 AND y<48 
THEN GOSUB text 

IF x>440 AND x<460 AND y>62 AND y<72 
THEN GOSUB text 
POKE adressi,prb(teller) 

REM schrijft de waarde prb(teller) naar 
PRB 


d5 : 

IF POINT (320,135)=1 THEN 
a = 2 

prb(teller) = prb(teller) + 32 
ELSE 

a = 1 

prb(teller) = prb(teller) - 32 
END IF 

LINE (318,130)-(338,140),a,bf 
RETURN 
d6: 
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IF POINT (360,135)=1 THEN 
a = 2 

prb(teller) = prb(teller) + 64 
ELSE 

a = 1 

prb(teller) = prb(teller) - 64 
END IF 

LINE (358,130)-(378,140),a,bf 
RETURN 
d7 : 

IF POINT (400,135)=1 THEN 
a = 2 

prb(teller) = prb(teller) + 128 
ELSE 

a = 1 

prb(teller) = prb(teller) - 128 
END IF 

LINE (398,130)-(418,140),a,bf 
RETURN 
sel: 

IF POINT (445,90)=1 THEN 
a = 2 

pra (teller) = pra. (teller) + 4 
ELSE 

a = 1 

pra(teller) = pra(teller) - 4 
END IF 

LINE (440,86)- (460,96),a,bf 
RETURN 
pout: 

IF POINT (445,115)=1 THEN 
a = 2 

pra(teller) = pra(teller) + 2 
ELSE 

a = 1 

pra(teller) = pra(teller) - 2 
END IF 

LINE (440,110)-(460,120),a,bf 
RETURN 
busy: 

IF POINT (445,140)=1 THEN 
a = 2 

pra(teller) = pra(teller) + 1 
ELSE 

a = 1 

pra(teller) = pra(teller) - 1 
END IF 

LINE (440,134)-(460,144),a,bf 
RETURN 
nnext: 

REM hier wordt de waarde teller met 1 
verhoogd, 

REM als de waarde teller hoger is als 15 
dan 

REM wordt teller teruggezet op 0 
teller = teller + 1 
IF teller > 15 THEN teller = 0 
LOCATE 5,23 : PRINT teller 
GOSUB schermaanpassen 
REM subroutine aanroepen om het 
REM scherm aan te passen 
RETURN 
last: 

REM hier wordt de waarde teller met 1 
verlaagd, 

REM als de waarde teller lager is als 0 
dan 

REM wordt teller op 15 gezet 
teller = teller - 1 
IF teller < 0 THEN teller = 15 
LOCATE 5,23 : PRINT teller 


GOSUB schermaanpassen 
REM subroutine aanroepen om het 
REM scherm aan te passen 
RETURN 
play: 

LOCATE 1,1 

PRINT " Linker muis-toets om te 
stoppen " 

LINE (358,60)-(418,74),l,b 
LINE (278,60)-(338,74),3,b 
playl: 

MOUSE ON 

REM ON MOUSE actief maken 
FOR teller = 0 TO 15 

LOCATE 5,23 : PRINT teller 
POKE adressi,prb(teller) 

POKE adress2,pra(teller) 

GOSUB schermaanpassen 
NEXT 

GOTO playl 
sstop: 

MOUSE OFF 

REM ON MOUSE inactief maken 
LINE (278,60)-(338,74),l,b 
LINE (358, 60)-(418,74),3,b 
teller = 0 

LOCATE 5,23 : PRINT teller 
GOSUB schermaanpassen 
test = MOUSE(0) 

GOTO mousecheck 
schermaanpassen: 

buffer = prb(teller) 

REM de waarde prb(teller) opslaan in 
buffer. 

FOR i = 7 TO 0 STEP -1 

REM hier wordt uitgezocht 
REM welk vierkantje welke 
REM kleur moet krijgen. 

IF prb(teller) - 2 A i => 0 THEN 

prb(teller) = prb(teller) - 2 A i 
LINE (118+i*40,130)-(138+i*40,140),2,bf 
ELSE 

LINE 

(118+i*40,130)-(138+1*40,140),l,bf 
END IF 
NEXT 

prb(teller) = buffer 
buffer = pra(teller) 

FOR i = 5 TO 3 STEP -1 

IF pra(teller) - 2 A (i-3) => 0 THEN 

pra(teller) = pra(teller) - 2 A (i-3) 
LINE 

(440,14+ (8-i)*24)-(460,24+(8-i)*24),2,bf 
ELSE 
LINE 

(440,14+(8-i)*24)-(4 60,24+(8-i)*24),l,bf 
END IF 
NEXT 

pra(teller) = buffer 
RETURN 
text: 

LOCATE 1,5 

PRINT "Deze led is niet software matig 
aan te sturen!" 

RETURN 

SUB muis(x,y) STATIC 

REM subroutine die aan x en y de actuele 
REM muispointer coördinaten toekent 
x = MOUSE(1) 
y = MOUSE(2) 

END SUB 
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NIEUWS EN FEITEN 


Power PC Board 


Een aantal nummers terug 
namen we in Commodore 
Info het bericht op van de fir¬ 
ma Rossmuller uit Duitsland 
die een eigen ontwikkeling 
zou hebben van het Power 
PC Board, die in Nederland 
door Flevosoft zou worden 
geleverd. 

Het is gebleken dat het PC 
Board van Rossmuller het¬ 
zelfde is als dat van KCS uit 
Nederland om de eenvoudige 
reden dat Rossmuller ze ge¬ 
woon bij KCS in Nederland 
heeft gekocht. Voor alle dui¬ 
delijkheid: er is op dit mo¬ 
ment maar een PC Board 
voor de 500 in de wereld en 
die is van KCS! 

Overigens nemen we het vol¬ 
gende nummer een test op 
van dit board. 


AMOS 


Er is een nieuwe program¬ 
meertaal voor de Amiga. Dit 
pakket wordt in Nederland 
niet door Homesoft geimpor- 
teerd, maar door Amicomp. 
Desgevraagt deelde Manda- 
rin, Engeland bij monde van 
Jocelyn Cocker ons mee dat 
Homesoft niet accuraat zou 
hebben gereageerd op ver¬ 
zoeken van Mandarin het 
pakket zo snel mogelijk in 
Nederland te verspreiden. 
Als goed alternatief werd 
daarom voor Amicomp geko¬ 
zen. Alle overige Mandarin 
software wordt normaal on¬ 
der de Homesoft-paraplu ge- 
distribueert. In de volgende 
nummer brengen we een test 
van dit programma. In dit 
nummer alvast een interview 
met de maker. 

Inl: Amicomp, 05220-54043 


A-MAX II 

Er is een upgrade verschenen 
van A-Max, de Macintosh- 

I llPIlP 

• • ! I 


AT-emulator 
voor 500 

Vortex, een fabrikant uit 
Duitsland, heeft ATonce- 
Amiga aangekondigd. ATon- 


Microsoft muis en de eventu¬ 
ele ingebouwde klok in een 
AT-klok. Ten slotte wordt de 
seriele poort omgetovert tot 
COM1 en de parallelle tot 
LPT1. 

De prijs van de ATonce zal 
onder de 500 Mark liggen, 
zonder MS-DOS overigens. 
De emulator is vanaf 1 okto¬ 
ber leverbaar. 


Lattice Cross 
Compiler V 5.0 

Lattice Ine. heeft een nieuwe 
versie aangekondigd van de 
MS-DOS naat AmigaDOS C 
cross compiler. De nieuwe 
versie is volledig compatible 
met de huidige versie van 
Lattice AmigaDOS C Devel- 
opment Systeem. 

De nieuwe versie wordt com¬ 
pleet met dit systeem gele¬ 
verd. Zo is het mogelijk 
Amiga programma’s te ma¬ 
ken vanaf een MS-DOS sys¬ 
teem. 

Geregistreerde gebruikers 
kunnen updaten tegen $ 350. 
De prijs van het pakket zelf 
ligt op $ 750. 

Inl: (09-1)7089161600 (tel), 
(09-1) 7089161190 (fax) 



emulator voor de Amiga. A- 
Max II kan de meeste hard¬ 
disk controllers nu aan en on¬ 
dersteunt nu ook andere 
SCSI-aparatuur, zoals de La¬ 
serWriter IISC en scanners. 
Verder werken processor- 
versnellerkaarten nu ook met 
A-Max zodat de boel tot vijf 
keer sneller draait. Geregi¬ 
streerde gebruikers krijgen 
binnenkort bericht over de 
updates. 

ReadySoft werkt daarnaast 
ook aan A-Max II Plus, dat 
een Amiga 2000-kaart is, die 
compatible moet worden met 
AppleTalk en MIDI. Als bij¬ 
zonderheid noemt ReadySoft 
dat Mac-schijfjes op een nor¬ 
male Amiga-drive kunnen 
worden gelezen. Naar alle 
waarschijnlijkheid is deze 
kaart eind oktober leverbaar 
(in Amerika). 


ce is een AT-emulator voor 
de Amiga 500 waardoor de 
Amiga verandert in een MS- 
DOS computer met een 
80286 processor met een 
snelheid van 16 bits/8 MHz. 
ATonce loopt vanaf DOS 
2.11 en wordt als een kaart op 
de 68000-sockel geprikt. 
Daarboven op komt de pro¬ 
cessor dan weer te zitten. 
ATonce ondersteunt hard¬ 
disks en maakt van alle aan¬ 
gesloten drives, MS-DOS 
drives (3,5"/720KB, 

5,257360KB). DOS wordt 
direct van de harddisk of de 
flop geboot. 

ATonce draait op een Amiga 
met minimaal 1 MB. De 
emulator geeft dan 640 KB 
onder MS-DOS ter beschik¬ 
king. Verder RAM-geheugen 
kan als extended/expanded 
geheugen worden aangespro¬ 
ken. 

De ATonce-Amiga emuleert 
CGA, Hercules, Toshiba 
T3100 en Olivetti G0317. De 
Amiga muis verandert in een 
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Virtual Reality: 

Van spel naar driedimensionale verbeelding 


n 

/ \ 


W ie kent niet de 
kleurrijke ‘adven- 
ture’ actiegames of 
de zeer complexe tekstadven- 
tures, waar men uren mee be¬ 
zig kan zijn, wegdromend in 
een wereld vol ridders, hel¬ 
den en gevaren. Maar stel je 
eens voor, dat je die avontu¬ 
ren ook kunt beleven in een 
echte driedimensionale om¬ 
geving, waarbij je geen joys¬ 
tick meer nodig hebt, maar de 
bewegingen van de hoofd, je 
voeten en je vuisten worden 
overgebracht in de computer. 

Met de computer op reis, 
naar werelden die net zo echt 
of onecht kunnen zijn als 
men wil. Met een speciale 
helm en speciale natuurge¬ 
trouwe Controls kan men zo 
binnenstappen in een omge¬ 
ving, die net echt lijkt maar 
toch alleen in het geheugen 
van de computer ‘en de erva¬ 
ring van de reiziger’ bestaat. 


Virtual Reality wordt gezien 
als de grote doorbraak in in¬ 
teractief computergebruik. 

Amiga 

In het hele spel van de Virtu¬ 
al Reality (VR) speelt de keu¬ 
ze van de hardware, het zoge¬ 
naamde ‘platform’ een grote 
rol. Er zijn krachtige machi¬ 
nes nodig, die veel en snel 
kunnen werken met vooral 
video-informatie. De Amiga 
blijkt, naast de professionele 
workstations die door grote 
bedrijven worden gebruikt, 
als de ‘budget’-machine voor 
deze toepassing de logische 
keus. 

Jack Tramiel zal er nog spijt 
van krijgen, dat hij destijds 
Amiga voor Commodore in 
de waht sleepte. Hij heeft nog 
wel geprobeerd om het be¬ 
drijf via juridische machina¬ 
ties naar Atari over te halen, 
maar dat is niet gelukt. Hij 
wist toen al, dat er in de Ami¬ 
ga aanpak een paar hele leuke 


CDTV eerste stap naar to¬ 
tale integratie video. 


dingen zaten. In gesprekken 
met Jack heeft hij wel eens 
verteld, dat de hele consu¬ 
mentenmarkt en de trend 
naar meer pixels en meer 
kleuren eigenlijk draaide om 
de RAM prijs. Omdat daar de 
laatste jaren wat problemen 
mee waren, kon hij ook voor 
de Atari ST niet snel genoeg 
en goedkoop genoeg de Me- 
gaBytes de huiskamer in¬ 
schuiven. Meer RAM bete¬ 
kent snellere verwerking en 
vooral meer complexe soft¬ 
ware. 

De Amiga heeft qua ontwerp 
altijd klaar gestaan voor veel 
RAM en dan met name voor 
gebruik in de video-proces- 
sing. Atari had via de MIDI 
een betere ingang naar de au- 
dio toepassingen, maar vanaf 
het begin was duidelijk dat de 
Amiga technisch gezien ei¬ 
genlijk de beste kaarten had. 
Zeker met de 68040 proces¬ 
sor, waarvan sprake is (er zijn 
al kaarten van o.a. Supra voor 
1200 $) en de interface naar 
grote opslag zoals CD-ROM 
en wat later CD-I hoeft een 
Amiga niet onder te doen 
voor professionele kleuren- 
werkstations. Vooral de prijs 
van de software en het rela¬ 
tief gemakkelijk koppelen en 
mengen met video- beelden 


gaat de Amiga voor VR een 
stevige impuls geven. 

CDTV 

Nolan Bushnell, die nu druk 
bezig is met de CDTV, heeft 
wel degelijk het oog op de 
VR toepassingen. Hij was de 
stichter van Atari, maar 
werkt nu weer in West Ches- 
ter samen met Gail Welling¬ 
ton, en dat is een echte Com¬ 
modore oudgediende, aan 
dergelijke multi-media pro¬ 
jecten. Dat men verder wel 
dan de standaard toetsenbord 
aanpak blijkt eruit, dat de be¬ 
diening van de Amiga CD¬ 
TV (Commodore Dynamic 
Total Vision) met ingebouw¬ 
de CD-ROM direct via een 
infrarood besturing gaat. men 
mikt op de echte ‘electroni- 
sche boeken’, maar daarna 
ook op de interactieve video 
en de interactieve Virtual rea¬ 
lity. En zoals altijd bij Com¬ 
modore, voor een groot pu¬ 
bliek tegen redelijke prijs. 
Maar laten we eerst even te¬ 
rugkomen op wat Virtual 
Reality nu eigenlijk inhoudt. 

Veelzijdiger en vrijer 

Er begint langzaam verande¬ 
ring te komen in de vrij een¬ 
zijdige toepassing van de 
computer voor alfanumerie- 
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ke gegevensverwerking. Hier 
en daar komen toepassingen 
naar voren, die buiten het ge¬ 
baande automatiseringspad 
vallen. Vreemde zaken, zoals 
de psycho-actieve software, 
maar ook toenemende inte¬ 
gratie van telecommunicatie 
en computerkracht. 

Virtual Reality ofweP 
Cyberspace is zo’n 
opwindende blik in 


van de realiteit niet meer op¬ 
gaan. Want normaal gespro¬ 
ken kunnen we niet naar wil¬ 
lekeur omhoog en omlaag, 
springen en vliegen, of ge¬ 
woon een heel andere wereld 
instappen. We kunnen geen 
nieuwe ‘entities’ maken en 
daar mee communiceren, 
wanneer we eens door de 
sleur van de dagelijkse reali¬ 
teit willen heenbreken. Wan¬ 
neer we de computer gebrui¬ 



wat we de volgende 
eeuw kunnen ver¬ 
wachten. 

Dit is het gebied waar de 
creatiefste computer talenten 
zich op dit moment in vast¬ 
bijten. We noemen Ted Nel- 
son, Jaron Lanier, Erich Gul- 
lichsen, maar ook Timothy 
Leary is actief met Virtual 
Reality, dat hij al heeft aan¬ 
geduid als LSD per compu¬ 
ter. 

Stereoscopische 

recreatie 

Lang leve de computer als 
stimulerende vriend en met¬ 
gezel, weg met de duffe cij- 
ferpeuteraars. Het ziet er naar 
uit, dat we langzaam gaan 
ontdekken dat een computer 
nog een heleboel meer is en 
kan dan alleen maar databank 
en boekhoudmachine. We 
gaan een nieuwe tijd in en 
ontdekken dat achter het 
beeldscherm misschien wel 
een hele andere wereld ligt, 
een waarbij de gewone regels 


ken om wat 'Virtual Reality’ 
(VR) heet te simuleren, op 
een scherm of op een speciale 
bril met mini-schermpjes 
voor driedimensionale effec¬ 
ten, kunnen we de grenzen 
van het normale overschrij¬ 
den. 

Overal 

De toepassingen van VR zijn 
alleen maar beperkt door 
onze verbeeldingskracht. Dr. 
William Bricken maakte een 
kleine opsomming, waarin 
Virtual Sports, Air Traffic 
Control, Virtuele ledematen 
voor gehandicapten, de Vir¬ 
tuele psycho-analist, de Vir¬ 
tual Decorator om het eigen 
huis met andere meubels en 
kleuren te bekijken, Virtuele 
concerten, en natuurlijk de 
Virtuele School, maar er is 
nog veel meer te bedenken. 
Met de juiste apparatuur is 
het al mogelijk om middels 
de computer als wandelaar in 
een nog niet bestaand ont¬ 
werp van een gebouw rond te 



dwalen. Men kan dan rond¬ 
kijken, de invloed van afme¬ 
tingen en kleuren van het ont¬ 
werp proeven alsof het ge¬ 
bouw er al stond. AutoDesk, 
de fabrikant van AutoCad, 
heeft in onder meer haar Cy- 
beria project al dergelijke 
ontwikkelingen gerealiseerd. 
De toepassingen van VR lig¬ 
gen op heel praktisch gebied, 
miltaire toepassingen en 
ruimtevaart, maar gaan ook 
zo ver als Teledildonics, sex 
op afstand. 

Reizen in stilstand 

Een goed voorbeeld van 
‘Virtual Reality’ (VR) is het 
rondreizen in bijvoorbeeld 
vreemde landen. Via een spe¬ 
ciale helm met een stereo- vi- 
deodisplay (2 schermpjes) 
met een ruimtelijk effect kan 
men gaan rondkijken in een 
3-D omgeving, bijvoorbeeld 
een exotisch land. Zonder uit 
de stoel te komen kan men 
daar, al naar gelang het pro¬ 
gramma het toelaat, interac¬ 
tief in rondkijken. Via een 
speciale sensor worden de 
hoofdbewegingen namelijk 
vertaald in bewegingen in die 
wereld en kan men verder via 
een joystick de richting van 
de beweging aangeven. 

Er wordt nu al gesprokene 
over ‘spacemakers’, mensen 
die dergelijke werelden en 
reizen opzetten. Een nieuw 
beroep, dat alleen met de 
computer bestaat, nu eens 
geen electronische vervanger 
van bestaand werk. 

Meer dan 
computerspelletjes 

De meeste gebruikers van 
een PC hebben wel eens met 
een simulatieprogramma zo¬ 
als Flight-simulator ge¬ 
speeld. Daarbij zit met als het 
ware (virtueel) in de stoel van 
de piloot en vliegt door een 
wereld met nagebootste 
vliegvelden, andere vliegtui¬ 
gen en contacten met ver¬ 
keersleiders etc. Bij dergelij¬ 
ke simulators is er sprake van 
gesimuleerde bewegingen in 
een abstracte ruimte. Dat 
wordt in de spelletjessfeer 
nog duidelijker, ook de ruim¬ 


teschip shoot-out varianten 
vallen in deze categorie. 

Een andere invalshoek vor¬ 
men de Adventures. In spelen 
als Powermonger of Popu- 
lous zien we al, dat de speler 
heer en meester is over een 
bedachte wereld, desnoods 
met wat medespelers. Maar 
met VR kan hij daar dan ook 
nog echt in rondreizen. 

Ervaringen 

Ik werd zelf voor het eerst 
blootgesteld aan VR bij Tim 
Leary thuis in de heuvels van 
Hollywood, eind 1989. Erich 
Gullichsen demonstreerde 
daar aan mij en John Barlow 
zijn Sense8 installatie. Dat 
werkte op basis van een Ami- 
ga (toen nog 2000) en met 
een speciale ronde joys- 
tick/3-D stuurknuppel en ste- 
reo-helm. De VR wereld, 
waar ik in mocht kijken was 
een van de eerste probeersels 
op dit systeem. Het rondrei¬ 
zen in een soort 3-D spelom- 
geving met behulp van de 
stereo-helm was niet zo ver¬ 
bluffend. In veel video-spel- 
letjes en flight-simulators 
heeft men ongeveer dezelfde 
macht over de omgeving. Na¬ 
tuurlijk is het vreemd om bij 
het draaien van het hoofd het 
beeld te zien veranderen en 
meegaan, maar dat went snel. 
De aha-erlebnis kwam, toen 
ik na een kwartiertje weer de 
helm afzette en opstond, en 
toevallig voor een abstract 
schilderij stond. Ik had toen 
even het gevoel, dat dat ook 
driedimensionaal was en er 
er zo in kon lopen, dat het 
schilderij ook zo’n VR we¬ 
reld was. Mijn bewustzijn en 
perceptie waren duidelijk 
even op het ‘verkeerde’ of 
juist goede been gezet. Op 
dat moment besefte ik, waar¬ 
om men dit LSD per compu¬ 
ter noemt en waarom de hal- 
lucinatie-freaks uit de 60-er 
jaren dit zo’n te gekke tech¬ 
nologie vonden. 

Illusies 

Bij ‘Virtual Reality’ speelt il¬ 
lusie een grote rol, de mens 
laat zich relatief snel overtui¬ 
gen van de ‘werkelijkheid’ 






van zo'n niet- of half-be- 
staande omgeving. Randall 
Walser van AutoDesk zegt: 
‘Cyberspace is eigenlijk een 
soort magie, het creëren van 
illusies’. De meest verbreide 
vorm van praktische Virtual 
Reality is dan ook het ‘Ad- 
venture-game’, waar de spe¬ 
ler door een voorbedachte 
wereld trekt. Daarvoor ge¬ 
bruikt men vaak magische 
symboliek. De speler identi¬ 
ficeert zich al snel met de 
held uit zo'n spel, en raakt 
verslingerd aan zijn 'King’s 
Quest’. Maar stel eens voor, 
dat zo'n spel zich afspeelt in 
een driedimensionale omge¬ 
ving, die men via een stereos¬ 
copische projectie ook 3-D 
kan zien, waar men dingen 
kan voelen en pakken via een 
‘Dataglove’, men andere spe¬ 
lers kan ontmoeten en daar¬ 
mee in real-time kan vechten 
of wat dan ook? En nog een 
stapje verder, wanneer men 
die imaginaire omgeving zelf 
kan bedenken en vorm ge¬ 
ven. 

Jeffrey Shaw 

De Amsterdamse kunstenaar 
Jeffrey Shaw, afkomstig uit 
Australië, en zijn collega 
Dirk Groeneveld maken 
computerkunst waarbij ‘Vir¬ 
tual Reality’ een grote rol 
speelt. Ze proberen een ‘en¬ 
vironment’ te maken, waar¬ 
van de kijker/gebruiker actief 
deel uit maakt. ‘De leesbare 
stad’ (The Legible City) is 
een interactief project dat o.a. 
in de Amsterdamse Balie aan 
het publiek is getoond, en 
waarmee men door een ab¬ 
stracte ruimte kan reizen. 

Leren omgaan met 
ruimte 

Er zijn situaties en ‘werel¬ 
den’, die men in het echt niet 
zomaar kan betreden. In de 
ruimtevaart, maar ook bij het 
analyseren van de constructie 
van een atoomreactor kan 
een ‘cybemaut’ nu rustig 
wennen aan een vreemde 
omgeving. Voor trainings- 
doeleinden, maar ook als ge¬ 
woon amusement. Men be¬ 
stuurt gewoon een ‘puppet’, 
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en kan dan vanuit de stoel op 
avontuur gaan. In VR kan 
men vanuit de stoel een tripje 
naar de amazone maken, 
maar ook gaan basketballen 
in een wereld, waar de 
zwaartekracht niet lineair is. 
Juist doordat men moeiteloos 
van gezichtspunt en positie 
kan verwisselene ontstaat al 
snel een gevoel van vrijheid, 
van transcendentie, dat een 
beetje lijkt op wat men be¬ 
leeft bij een ‘trip’ onder in¬ 
vloed van bijvoorbeeld LSD. 
Die verbinding werd dan ook 
door velen gelegd, de onder¬ 
zoekers op dit gebied zijn 
daar niet blij mee, men vreest 
beperkingen door de over¬ 
heid. De ‘Drug per computer’ 
heeft echter beslist onwerke¬ 
lijke en fascinerende trekjes, 
zeker wanneer men in wat 
‘vreemdere’ werelden gaat 
rondreizen. Gibson sprak al 
over ‘consensual hallucina- 
tion' in de Scifi roman Neu- 
romancer. Zo kan men in een 
VR allerlei objecten een 
soort identiteit geven en op 
die manier een rollenspel 
gaan uitvoeren, men hoeft 
ook niet alleen in een wereld 
te vertoeven, maar kan die 
delen met andere Cyber- 
nauts. Dat lijkt toekomstmu¬ 
ziek, maar in ‘Virtual Reality 
for Two’ aanpak van pionier 
op dit gebied Jeron Lanier is 
er sprake van een virtuele 
ontmoeting in een virtuele 


ruimte tussen twee partici¬ 
panten, die ieder alleen direct 
contact hebben met hun com¬ 
puter. 

Cyperpunk 

Er zijn een aantal woorden 
met ongeveer dezelfde bete¬ 
kenis als Virtual Reality 
(VR). Seymour Papert (logo) 
gebruikte ‘microworlds’, Ted 
Nelson ‘Virtuality’. De kreet 
Cyberspace hangt samen met 
Cybernetica (Norbert Wie¬ 
ner) en met Cyberpunk, en 
dat is weer een speciale cate¬ 
gorie Science-Fiction litera¬ 
tuur uit de VS. 

Bill Gibson was met Neuro- 
mancer duidelijk de trendset¬ 
ter op dat gebied, hij was 
laatst nog in Nederland op 
het Sound & Image evene¬ 
ment in het Haagsche Film¬ 
huis. In de VS is Cyberpunk 
een grote rage onder met 
name de hi-tech afficiona- 
do’s, de hackers en de com¬ 
putergebruikers. Bill Gibson 
schilderde de Cyberspace als 
een nieuw medium, een ab¬ 
stracte wereld bestaande uit 
electronische data, beelden 
en verbindingen, direct toe¬ 
gankelijk voor iedere gebrui¬ 
ker (operator). 

Historie 

Het is moeilijk om aan te ge¬ 
ven, wie nu precies de vader 
van Virtual Reality is. Mor¬ 


ton L. Heilig heeft de oudste 
octrooien op dit gebied, die 
dateren al van 1957 (stereos¬ 
copische videobril) en 1961 
(Sensorama Simulator). 

Een van de eersten, die de 
computer zag als fundamen¬ 
teel werktuig voor de trans¬ 
formatie van het menselijk 
denken en cratieve activiteit 
was de Amerikaan Vannevar 
Bush. In ‘As we may think’ 
uit 1945 wees hij erop, dat de 
mens betere middelen nodig 
had om door de steeds was¬ 
sende zee gegevens heen te 
komen dan de klassieke we¬ 
tenschappelijk aanpak met 
publikaties, boeken en bibli¬ 
otheken. Hij voorzag een 
(toen heel futuristisch) Me- 
mex apparaat, dat als per¬ 
soonlijke databank zou gaan 
fungeren, en waarin teksten, 
plaatjes, notities en indexen 
worden opgeslagen. Een me¬ 
chanisme voor snel doorlo¬ 
pen en doorbladeren van (mi¬ 
crofilm) teksten en indexen, 
linken van tekstpassages 
door een trail, Bush be¬ 
schreef hier al delen van wat 
we later bij Hypertext tegen¬ 
komen. Zijn visie op een 
multimedia aanpak, zoals we 
die in de 90-er jaren realiteit 
zien worden met o.a. CD- 
ROM en WORM, bleek pro¬ 
fetisch. 

AutoDesk 

Bij AutoDesk, waar men aan 
het programma AutoCad vol¬ 
doende verdient om wat te 
kunnen experimenteren, 
startte John Walker het Cy¬ 
berspace Initiative, dat nu 
project Cyberia heet. Met in 
het achterhoofd om een stere¬ 
oscopische versie van Auto¬ 
Cad te maken, maar men be- 
stefte al snel dat ‘Cyberspa¬ 
ce’ veel meer inhield dan een 
hulpmiddel voor architecten. 
Cyberia is de afgelopen paar 
jaar de leerschool geweest 
voor heel wat VR specialis¬ 
ten, die deels al weer zijn uit¬ 
gezwermd. Randy Walser is 
nu de belangrijkste VR man 
bij AutoDesk. 
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VPL 

Jaron Lanier is de gum van 
de VR. Hij heeft niet alleen 
technisch interessante dingen 
ontwikkeld met zijn bedrijf 
VPL, maar ook theoretsch 
zijn visies baanbrekend. VPL 
heeft de eerste ‘Datglove’ ge¬ 
maakt, waarvan een afstam¬ 
meling als de ‘PowerGlove’ 
is uitgebracht voor het Nin¬ 
tendo systeem. Naast de helm 
is namelijk ook de manuele 
interactie met de omgeving 
erg belangrijk voor VR rei¬ 
zen en dus zijn er ondertus¬ 
sen ‘Datasuits’ en allerlei 
feedback apparaatjes. Men 
zou ook kunnen werken met 
spraak, een keyboard of joys¬ 
tick, maar in veel ‘echte’ om¬ 
gevingen is dat wat gekunst¬ 
eld. 

Jaron Lanier is een zonder¬ 
linge man, die naast VR ook 
veel aan muziek doet. Toen 
ik hem ontmoette in Berkeley 
tijdens het nieuwjaarsconcert 
van de Grateful Dead, was hij 
nogal ‘spacy’ en niet erg 
communicatief, maar vol¬ 
gens sommigen leeft Jaron 
gewoon op een ander vlak. 
Hij ziet er niet uit, met rasta 
haar en oude kleren, maar de 
VR werelden die hij maakt 
zijn imponerend. Jaron heeft 
veel publiciteit gekregen, 
waar hij niet erg blij mee is. 
Vooral de vergelijking tussen 
VR en LSD vindt hij onte¬ 
recht en gevaarlijk. 

Jaron Lanier ziet erg veel in 
VR als een ontmoeteings- 
plaats. Hij denkt, dat mensen 
elkaar in de toekomst zullen 
ontmoeten in zo’n VR en dan 
daar ook met elkaar kunnen 
communiceren. VR wordt de 
favoriete ontmoetingsplaats, 
niet beperkt door materieële 
randvoorwaarden, alles kan 
en alles mag. Al naargelang 
de sensors en feedback beter 
worden kan men dan verder 
gaan dan de datagloves van 
nu, maar werken met data¬ 
suits. Voor de weergave zit 
het erin, dat men uiteindelijk 
uit de helm zal groeien en bij¬ 
voorbeeld met holografische 
projectie zal gaan werken. 
Op die manier komen we 


weer bij de Cyberspace ideë- 
en van Gibson uit. 

8ense8 

De goedkope manier om VR 
te realiseren draait rond be¬ 
schikbare hardware. Erich 
Gullichsen en Pat Gelband 
gingen bij AutoDesk weg om 
op basis van de Amiga een 
budget-VR systeem te gaan 
ontwikkelen. Hun bedrijf 
Sense8 gebruikt de Amiga 
3000, de Dataglove en een 
goedkope 3-D helm. Hun 
systeem heeft de codenaam 
OS/3D. Hun software om 
zelf VR werelden te maken 
heet WorldTool. 

Auteurs 

Er zijn een aantal schrijvers, 
die zich met name op het Cy¬ 
berspace gebied begeven. 
Tim Leary schrijft er over, 
maar het zijn met name Ho- 
ward Rheingold en John Bar- 
low, die de in de diverse 
Amerikaanse bladen het best 
geinformeerd blijken. Rhein¬ 
gold is de editor van de Who- 
le Earth Review en heeft een 
Cyberspace nieuwsbrief. 
John Perry Barlow is o.a. ly- 
ricist van de Grateful Dead 
en een bekende ‘Technology 
Mystic’. Zijn interviews met 
Jaron Lanier zijn spraakma¬ 
kend geweest en hij is nu sa¬ 
men met Mitch Kapor (Lotus 
stichter) een actie begonnen 
on de tamelijk subversieve 
acties van de FBI en CIA te¬ 
gen de hackers in beeld te 
brengen. Dr. William Bri- 
cken is een van de weten¬ 
schappers (U. van Washing¬ 
ton) die zich met VR bezig¬ 
houden, maar hij komt ook 
van AutoDesk af. Myron 
Kruger schreef in 1972 al het 
boek ‘Virtual Reality’. 

Cyberspace display 

Er zijn al een aantal produk- 
ten voor Cyberspace/VR toe¬ 
passingen op de markt. Een 
aantal CAD programma’s, 
met name op Silicon Gra¬ 
phics en andere zware grafi¬ 
sche workstations heeft een 
stereo-3D of 4-D optie. 




Timothy Leary: Virtual Reality 

Op 14 september komt Timothy Leary in 
Paradiso in Amsterdam om een lezing te 
geven over het onderwerp Cyberspace en 
LSD per computer. 

Hij is erg bekend geworden als de Harvard professor die in de 
zestiger jaren LSD propageerde. In de tachtiger jaren heeft hij 
zich ook op de computer toegelegd en onder meer psychologi¬ 
sche spelsöftware (Mind-Mirror) gemaakt. Timothy Leary is in 
de VS enerzijds een omstreden figuur vanwege zijn denkbeel¬ 
den, aan de andere kant heeft hij zich ontwikkeld tot een echte 
‘new-age’ en ‘new-edge’ voortrekker. Hij is al 72, maar is nog 
zeer actief en schrijft nog reeksen artikelen en boeken. Vanaf 
het begin heeft hij de potentie van VR ingezien en actief mee¬ 
gewerkt aan de ontwikkeling. Naast Tim komt ook de echte 
VR ontwikkelaar Gullichsen spreken op deze avond. Omdat 
we verwachtten, dat vanuit de computerwereld grote belang¬ 
stelling zou ontstaan voor het bijwonen van de lezingen van 
Timothy Leary, hebben we een aantal kaarten weten te reser¬ 
veren voor zijn presentatie op 14 september in het Amsterdams 
Paradiso. Bel daarvoor 020-827678 of fax 260929. 


Ook voor de ST en Amiga 
zijn er al stereoscopische 
brillen en ook wat program¬ 
ma’s voor 3-D effecten voor 
zowel de Amiga als de Atari 
ST op de markt, maar de 
kwaliteit van die beelden is 
nog beperkt (Haitex X-Specs 
3-D voor Amiga). Men be¬ 
reikt het 3-D effect door te 
werken met een LCD bril die 
afwisselend links en rechts 
‘opengaat’, en dan wordt te¬ 
gelijk het corresponderende 
beeldje getoond. Op zich 
leuk en ook iets wat nog veel 
verder kan worden ontwik¬ 
keld, maar de echte stereo- 
bril is toch kwalitatief beter. 
Virtual Reality Labs uit San 
Louis Obispo (CA) heeft al 
diverse programma’s voor de 
Amiga, waaronder Vista, 
Fractal Flight en Distant 
Suns. 

Cyberspace/Patient Commu¬ 
nications uit Norcross, Geor- 
gia USA heeft een mini-dis- 
play ontwikkeld, dat men 
heel dicht voor de ogen kan 
gebruiken. Daarmee kan een 
EGA beeld worden afge- 
beeld, zonder dat men vastzit 
aan de normale zware beeld¬ 
buis. Voor gehandicapten en 


allerlei medische en indus¬ 
triële toepassingen is dit een 
uitkomst. 

Luc Sala 
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VECTORTRACE 


Punten worden lijnen 


I emand die wel eens IFF- 
plaatjes in programma’s 
laadt, krijgt te maken met 
het begrip pixels en vector, 
zonder dat de persoon in 
kwestie het zelf weet. Plaat¬ 
jes zijn namelijk uit puntjes 
opgebouwd. De opbouw is in 
zekere zin vergelijkbaar met 
een afdruk van letters afge¬ 
drukt op een matrixprinters. 
Voor bepaalde plaatjes geldt 
ditzelfde: aan de kanten vall- 
len de kartelingen op. 

Iedereen die wel eens IFF- 
plaatjes op een printer heb¬ 
ben afgedrukt, heeft die kar¬ 
telingen wel eens gezien. De 
pixels zijn hier de oorzaak 
van. Programma’s als Turbo 
Print (Professional) kunnen 
dit enigszins opheffen door¬ 
dat zij de mogelijkheid bezit¬ 
ten de randen kunstmatig 
gladder te maken. Ook 
WorkBench 1.3 kwam hierin 
enigszins tegemoet. Maar ie¬ 
mand die diezelfde plaatjes 
in een DTP-programma wil 
gebruiken, komt al snel in de 
problemen. 

DeskTop Publishing 

DTP-pakketten hebben vaak 
eigen printer-drivers, en kun¬ 
nen daarom geen gebruik 
maken van bijvoorbeeld Tur¬ 
bo Print. Verder komt het 
vaak voor dat een DTP-er de 
IFF-plaatjes wil vergroten, 
omdat het dan beter in een 
bepaalde stijl past. Wat dan 
extra groot naar voren komt, 
zijn weer de randen van de 
plaatjes. De kartels worden 
met het vergroten van het 
plaatje meevergroot. En hoe 



Een normaal IFF-plaatje voordat het met 
VectorTrace bewerkt werd 


de af druk er uiteindelijk uit 
gaat zien, laat zich raden. 

Toverwoord 

Op dit probleem heeft Gold 
Vision uit Berlijn iets gevon¬ 
den: VectorTrace 1.1. Dit 
programma converteert 1FF- 
plaatjes naar verschillende 
formaten die door andere 
programma’s, bijvoorbeeld 
DTP, weer kunnen worden 
ingelezen. De formaten die 
VectorTrace ondersteunt 
zijn: Aegis Draw, Encapsula- 
ted PostScript, Professional 
Draw-Clip en Video 3D-For- 
mat. 


scherm en dan op de 
WorkBench. De laatste 
methode kost het minste 
geheugen en is daarom 
met name bedoeld voor 
de gebruikers met 512 
KB geheugen. 

VectorTrace kan overigens 
door middel een icon worden 
gestart. De opties kunnen 
desgewenst ook in het Info- 
venster worden meegegeven. 
Om iets met het programma 
te kunnen doen, moet er eerst 
een IFF-plaatje worden inge¬ 
lezen. Wanneer dat gebeurt 
is, moet het worden aange¬ 
klikt. Dit is nodig voor het 
bewerken van het plaatje. 



Het resultaat na de bewerking in VectorTrace, 


Opstarten 

VectorTrace kan vanaf de 
CLI worden gestart met een 
aantal mogelijkheden: 

• zonder toevoeging, het 
programma wordt vanuit 
een eigen interlace- 
scherm gestart; 

• -n, het programma wordt 
in de non-interlace mo¬ 


dus gestart in dezelfde 
grootte als het Work- 
Bench-scherm; 

• -s, VectorTrace start in 
een eigen scherm met de 
standaardgrootte 640x512 
(PAL) of 640x400 
(NSTC); 

• -w, het programma start 
ook nu in een eigen 


Bewerken 

Het bewerken van het plaatje 
doet VectorTrace helemaal 
zelf als de opdracht daartoe 
gegeven. Afhankelijk van de 
grootte hiervan, duurt tot 
maximaal tien minuten op 
een normale Amiga (68000). 
Als dat gebeurt is wordt het 
plaatje in het gewenste for- 
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maat naar de diskette wegge- 
scheven. 

Het inladen in andere pro¬ 
gramma’s hebben we gepro- 
beert en met succes!. Ook 
PostScript-files konden zon¬ 
der problemen worden uitge¬ 
print. 

De illustraties laten trouwens 
zien waartoe VectorTrace in 
staat is. Deze zijn als IFF in¬ 


geladen. Daarna werden ze 
geinventeerd. Vervolgens 
lieten we VectorTrace het 
plaatje herkennen en hele¬ 
maal bewerken. Het formaat 
in Aegis Draw vormde geen 
enkel probleem. Ook het in¬ 
lezen in het DTP-programma 
Pagestream ging zonder pro¬ 
blemen. 


Om het meeste resultaat te 
krijgen, schreven we de 
plaatjes ook nog eens weg in 
PostScript-formaat. 

De hoge resolutie zorgt er¬ 
voor dat er eigenlijk hele¬ 
maal niets meer van de punt¬ 
jes is weer te zien. Nadeel is 
dat je hier een PostScript- 
compatible printer voor no¬ 
dig hebt, die niet altijd voor¬ 
handen is. 


Maar het resultaat maakt in 
ieder geval duidelijk dat de¬ 
gene die IFF-plaatjes voor 
publicaties wil gebruiken in 
een DTP-programma, met 
VectorTrace goed af is. 

Inl: 3Gitaal, 020-970035 


Na het bewerken 



NIEUW! - NIEUW! - NIEUW! - NIEUW! - NIEUW! 

Eindelijk uit: dé Nederlandse 

GEOS 2.0-basishandleiding 


Dit boek is speciaal geschreven voor hen die 
werken met een Commodore 64/128 en het 
geavanceerde besturingssysteem GEOS 2.0. 
Het eerste Nederlandse boek voor de rechtge¬ 
aarde GEOS-gebruiker, die de mogelijkheden 
van dit pakket ten volle wil benutten. 

Het boek beschrijft naast de werking van 
GEOS 2.0, uitvoerig het gebruik van de 
Desktop, GeoPaint, GeoWrite en alle desk-ac- 
cessoires. Tevens komen applicaties als Geo- 
Spell en GeoMerge aan de orde. Verder wordt 


in dit boek aandacht besteed aan de andere 
GEOS-applicaties zoals GeoCalc, GeoFile, 
GeoPublish en GeoChart. 

Indien u GEOS op de manier gaat gebruiken 
waarvoor het bedoeld is, zult u dit boek op zijn 
juiste waarde weten te schatten. 

ƒ 34,95 


U kunt de GEOS 2.0 - basishandleiding bestellen door overmaking van het betref¬ 
fende bedrag (incl. verzendkosten) op gironummer 5641219 t.n.v. SALASAN Am¬ 
sterdam o.v.v. ’GEOS basishandleiding’. 

Dealer aanvragen welkom. 
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AMIGA BIBLIOGRAFIE 


H et afgelopen jaar is 
ér vrij veel aandacht 
geweest aan het die¬ 
pere Amiga-wezen. Dat hier 
een welwillende leesmarkt 
voor is, mag blijken uit de 
nog steeds groeiende stroom 
Amiga-literatuur. Uit deze 
stroom hebben we vier boe¬ 
ken gehaald welke we eens 
nader onder de loep nemen. 

De Amiga literatuur laat zich 
grofweg scheiden in twee de¬ 
len. Het eerste deel richt zich 
op de gebruiker van de 
eindprogramma's, die men¬ 
sen die geen behoefte hebben 
om zich bezig te houden met 
alle diepere zaken van hun 
computer. Het tweede deel 
richt zich op die groep die 
juistmeer wil weten van hun 
(vaak) trouwe bureaudier. 
Deze boeken gaan dieper in 
op de zaken. 

Amiga Intern 2.0 

Dit boek, dat door Data Be- 
cker wordt uitgebracht en 
door Bruna uitgevers B.V. in 
Nederland wordt gedistribu¬ 
eerd, bevat een schat aan ge¬ 
gevens voor de doorgewin¬ 
terde programmeur. Het boek 
begint met een aantal afspra¬ 
ken om tot netjes program¬ 
meren te komen, waarna echt 
de gaspedaal tot de bodem 
wordt doorgeduwd. Zaken 
die bij de Amiga als toch re¬ 
delijk pittig bekend staan, zo¬ 
als het programmeren van de 
devices, worden overzichte¬ 
lijk en helder uitgelegd. Rijk 
voorzien van, helaas nog 
steeds niet altijd goed wer¬ 
kende, voorbeelden, wordt de 
tekst alras duidelijk aan de 
nog niet volleerde program¬ 
meur. 

Wanneer u geïnterresseerd 
bent in de verschillende IFF- 
formaten, ook hieraan is in 
het boek een apart hoofdstuk 
gewijd. Het vijfde hoofdstuk 


is de droom van menig door¬ 
gewinterde programmeur. 
Alle WorkBench 1.3-func- 
ties, onderling van elkaar ge¬ 
scheiden, worden behandeld. 
Wilt u een functie schrijven? 
Zoek eerst maar eens in dit 
boek, voordat u zelf aan de 
slag gaat! Alsof dit nog niet 
genoeg is, bevat het het laat¬ 
ste hoofdstuk als toegift een 
complete verhandeling over 
het zelf programmeren van 
printerdrivers. Altijd al een 
secret wish van yours truly 
geweest. Tot de laatste blad¬ 
zijde blijven de schrijvers 
sterk doorgaan, wilde u altijd 
al weten hoe u uw eigen fonts 
moest programmeren? Dit 
boek vertelt het. 

In het kort gezegd, een kei 
van een boek waaraan u nog 
veel programmeer-plezier 
zult beleven. 

Amiga Intern 2.0 
Bleek, Jennrich & Schulz 
Data Becker, A.W Bruna uit¬ 
gevers B.V. 

ISBN 90 229 3683 X 
ƒ 89,90 

Het grote Amiga C 
boek 

Dit boek laat zich bijna om¬ 
schrijven als de alternatieve 
handleiding van de Aztek C 
v3.6 compiler. Het eerste 
hoofdstuk is in z’n geheel ge¬ 
wijd aan de beschrijving en 
werking van de compiler, de 
linker en de assembler. Vanaf 
hoofdstuk 3 begint het ver¬ 
haal pas echt. Intuition wordt 
in al z’n gedaanten onthuld. 
Hoe programmeert u reque- 
sters, menu’s, gadgets, Wind¬ 
ows, alerts, sereens, het con- 
soledevice of de IDCMP-fa- 
cility van de Amiga, al dit 
wordt behandeld in dit 
hoofdstuk. Bent u geïnteres¬ 
seerd in de altijd mysterieuze 
Guru foutmeldingen? Op 
bladzijden 192 t/m 195 wor¬ 


den de foutnummers stuk 
voor stuk ten tonele geleid. 
Vanaf hoofdstuk vier begint 
het tweede deel van het boek. 
De auteurs leggen in dit 
hoofdstuk uit hoe een editor 
in C geprogrammeerd kan 
worden. De tekst wordt con¬ 
tinu ondersteund door 
programmadelen, die een¬ 
maal in elkaar gezet, een echt 
werkende editor moeten vor¬ 
men. 

Voor beginnende Intuition - 
programmeurs een steun en 
toeverlaat. Voor gevorderden 
en boek om steeds weet op 
terug te vallen. 

Het grote Amiga C-boek 
Bleek, Jennrich & Schulz 
Data Becker, A.W. Bruna uit¬ 
gevers B.V. 

ISBN 90 229 3483 7 

Amiga program¬ 
mees handbook vol.2 

Dit Engelstalige boek laat 
zich bijzonder moeilijk le¬ 
zen. Dit niet zozeer door de 
Engelse taal, maar door de 
weinige voorbeelden. Deson¬ 
danks bevat het boek een 
schat aan gegevens, die pas 
na een paar maanden door het 
boek worstelen eruit kunnen 
worden gehaald. 

Het boek beschrijft op een 
duidelijk Amerikaanse ma¬ 
nier de bediening van de de¬ 
vices. De werking van de de¬ 
vices wordt wat naar de ach¬ 
tergrond gedrukt, men is 
meer bezig met het proberen 
te verduidelijken van het pro¬ 
grammeren van de devices. 
Dat deze materie vrij moei¬ 
lijk is, mag blijken uit het feit 
dat ondergetekenden het 
boek al enige tijd bezitten 
maar vrij veel moeite hebben 
gehad met het lezen van het 
boek. 

De maker is er helaas niet ge¬ 
heel in geslaagd de materie 
duidelijk te presenteren. 
Door het gebrek aan voor¬ 


beelden kunt u het gevaar lo¬ 
pen in een moeras van woor¬ 
den te verzinken. Echter in¬ 
dien men ook de Amiga In¬ 
tern 2.0 bezit, dan is dit boek 
een unieke aanvulling op de 
gegevens in de Intern. 

Amiga programmee’ s hand¬ 
book 

Eugene P. Mortimore 
SYBEXInc. 

ISBN 0 895888 384 8 
ƒ 76,= 

Inside the Amiga 
with C 

Dit toch al weer enige jaren 
oude boek blijft het nog 
steeds goed doen bij onder¬ 
getekenden. De schrijver 
tracht alle aspecten van de 
Amiga te beschrijven. Dit 
met vele voorbeelden waar¬ 
door u al snel een werkend 
programma zal op kunnen 
zetten. Alle Amiga-zaken 
worden in dit boek behan¬ 
deld, wat helaas resulteert in 
een te geringe diepgang. Kort 
uit de inhoud, hoe program¬ 
meert men Intuition in al z’n 
specifieke gedaanten, hoe 
kan men van de multitasking 
aspecten van de Amiga profi¬ 
teren, sprite-animaties, het 
programmeren van geluid en 
spraak en de disk i/o. 
Kortweg, niet te diep maar 
toch net diep genoeg om een 
idee te geven van de moge¬ 
lijkheden en aspecten van de 
Amiga. 

Inside the Amiga with C 
J.T. Berry 

HowardW.Sams & Company 
ISBN 0 672 22468 2 

Johan & Johan 

Deze boeken zijn leverbaar 
bij Computer Collectief 
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AMIGA STARTERS 



D eze keer een uiteen¬ 
zetting van de ver¬ 
schillende poorten 
op de Amiga. 

Change 

Serial-gadget 

Als u gebruik maakt van dit 
Gadget dan zult u een nieuwe 
window te zien krijgen. In dit 
window kunt u dan allerlei 
veranderingen aanbrengen 
met betrekking tot de seriële 
poort. Wat houdt de seriële 
poort eigenlijk in? 

Zoals u weet (moet weten) 
zitten er aan de achterkant 
van de Amiga een aantal aan¬ 
sluitingen. Op deze aanslui¬ 
tingen kunt u hardware-aan- 
sluiten als een DiskDrive, 
Harddisk of modem. In uw 
handleiding staan alle aan¬ 
sluitingen vermeld en welke 
waarvoor dient. Toch zullen 
we ze één voor één de revue 
laten passeren, voordat we 
weer terug komen bij de 
Change Serial-Gadget. 

Eerst nog een algemene 
waarschuwing. Als u de com¬ 
puter uitschakelt doe dit dan 
doormiddel van de aan/uit- 
schakelaar op de voeding. 
Trek alstublieft niet de stek¬ 
ker uit het stopcontact als 
aan- of uitschakelaar, aange¬ 
zien uw computer of voeding 
daar niet van gediend zijn. 
Dit is ons namelijk ook een 
keer noodlotig geworden. 
Als uw computer dan nog in 
de garantie zit is er niet veel 
aan de hand maar alles bij el¬ 
kaar duurt het toch weer een 
paar weken voordat de com¬ 
puter weer uit zijn coma te¬ 
ruggekeerd is. En wat is er 
nou erger dan uw AMIGA 
een paar weken te missen. 
Slapeloze nachten zijn het 
gevolg, families gaan er ka¬ 


pot aan, de gevolgen zijn ge¬ 
woon niet te overzien. 
Waarschuwing twee moeten 
we ook niet vergeten. Bij het 
aansluiten van een randappa- 
raat is het verstandig uw 
computer uit te zetten. Doet u 
dit niet, dan kan dat leiden tot 
beschadiging van de randap¬ 
paratuur of van uw computer. 

Muis/Joystick 

konnektor 

We beginnen, van achter af 
gezien, aan de linker kant. 
Hier zult u twee gelijk¬ 
soortige aansluitingen vin¬ 
den. De eerste is bedoelt voor 
aansluiting van de muis. 

De tweede zal meestal ge¬ 
bruikt worden voor de aan¬ 
sluiting van een joystick. Wat 
nu te doen als u een spelletje 
hebt waarbij u twee joysticks 
nodig hebt? Twee keuzes: 

1. Haal de muis uit de eerste 
poort en sluit daar uw twee¬ 
de joystick op aan; 

2. Koop een kastje met een 
schakelaar erop en u kunt de 
muis en joystick tegelijk op 
poort één aansluiten. Het eni¬ 
ge wat u dan te doen heeft, is 
de schakelaar om te zetten. 


Een ander voordeel is dat u 
uw poort op deze manier niet 
zult molesteren, dit zijn im¬ 
mers nog steeds behoorlijk 
’expensive jokes’. 

Audio 

Hier zult u twee, van gelijke 
grootte, lijkende konnektoren 
vinden. Op deze connectoren 
vinden we het linker- en 
rechter geluidskanaal van de 
Amiga. Stereo, dus zodoende 
vindt u twee connectoren een 
voor linker- en de ander voor 
het rechter kanaal. U kunt uw 
computer geluid via de moni¬ 
tor of T.V. ten gehore laten 
brengen maar ook is het mo¬ 
gelijk dat te doen via een ste- 
reo-toren. Op een monitor of 
T.V. gaat dat vaak via een Y- 
kabel. Eén voor beeld weer¬ 
gave en de andere voor het 
geluid. Als u een euro- 
connector aansluiting heeft 
voor uw monitor dan zit het 
geluid bij deze plug bijgeslo¬ 
ten en hoeft u dus niet meer 
apart uw geluid op de moni¬ 
tor aan te sluiten. Ook kunt u 
zoals eerder vermeld via de 
connectoren in de AMIGA 
de computer aansluiten op 
een stereo installatie. Dit doet 
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u dan op de Aux of Auxiliary 
uitgang van uw toren. 

Diskdrive 

Zoals het woord al zegt kunt 
u hier uw tweede drive op 
aansluiten. De mogelijk¬ 
heden zijn of een 3,5 inch 
diskdrive, dat is toch de 
meest gebruikelijke of een 5 
1/4 inch diskdrive. 

Deze laatste wordt vaak ge¬ 
kozen, omdat deze schijfjes 
veel en veel goedkoper zijn 
dan de 3,5 inch schijfjes. Een 
andere reden is, de mogelijk¬ 
heid om MS-DOS software 
uit te kunnen lezen. 

Vooral nu het ‘KCS POWER 
PC BOARD' op de markt is 
gekomen (zie de testen die 
zullen verschijnen of al ver¬ 
schenen zijn) zal het gebruik 
van MS-DOS software op de 
AMIGA toenemen, immers 
de software emulator ’Trans- 
former’ is ook niet alles, niet¬ 
waar? (13% van een IBM- 
PC, niet bepaald topsnelheid) 
Ook de 3,5 inch drive kent 
z’n voordelen. De meeste 
commerciële software is op 
3,5 inch uitgebracht. U zult 
dus altijd één 3,5 inch drive 
nodig hebben. 

Seriële 

Deze aansluiting wordt 
meestal gebruikt voor de aan¬ 
sluiting van een modem of 
een printer. Een modem is 
een apparaat waarmee men in 
contact kan komen met een 
andere computer met behulp 
van de diensten van de PTT. 
Wat doet nu het modem? Ei¬ 
genlijk heel simpel, de com¬ 
puter werkt met digitale sig¬ 
nalen 1 en 0. Deze kunnen 
niet direct via de telefoonlijn 
verstuurd worden daar hier 
gebruik gemaakt wordt van 
analoge signalen (zoals stem¬ 
geluiden, muziek etc). U 
raadt het al, de modem zet de 
digitale signalen om in analo¬ 
ge bij verzenden en bij ont¬ 
vangst zet hij ze weer om van 
analoog naar digitaal. Van¬ 
daar de naam MOdulator- 
DEModulator. Met een mo¬ 
dem kunt u toegang krijgen 
tot Viditel, Bulletin Boards 
van bijvoorbeeld AMIGA- 
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gebruikers, informatie opvra¬ 
gen bij instellingen, scholen 
en andere diensten. 

Parallel 

Deze connector wordt meest¬ 
al gebruikt voor de aanslui¬ 
ting van een printer of plotter. 
De nu volgende typen prin¬ 
ters kunt u op deze connector 
aansluiten. Margriet-wiel 
printer, deze lijkt op het 
schrijfmachine type. Het 
werkt namelijk met een 
draaischijf waarop de letters 
staan afgebeeld. Voordelen 
zijn de hoge letterkwaliteit, 
nadelen zijn veel lawaai, zeer 
langzaam, niet grafisch en 
maar 1 lettertype is tezelfder¬ 
tijd mogelijk. Dan heb je de 
matrixprinter deze is op dit 
moment de meest gebruikte 
thuisprinter. Dat komt door¬ 
dat de printers niet duur zijn, 
een redelijk tot goede 
letterkwaliteit bieden en in 
een aardig rap tempo tekst en 
grafische afbeeldingen kun¬ 
nen laten zien. Een groot na¬ 
deel is vaak de grote hoeveel¬ 
heid lawaai die geproduceerd 
wordt. Dat komt omdat de 
matrixprinter met naaldjes de 
letters afdrukt op het papier. 
Dit veroorzaakt over het al¬ 
gemeen een aardige hoeveel¬ 
heid decibels. 

Een oudje die het heeft moe¬ 
ten opgeven ten opzichte van 
de matrixprinter is de thermi¬ 
sche printer. Deze werkt ook 
met naaldjes die op het papier 
hameren alleen gaat de af¬ 
druk niet met een inktlint 
maar doormiddel van warme 
naaldjes die op een speciaal 
soort papier de afdruk zicht¬ 
baar maakt. Dit was een duur 
soort papier dus het was niet 
echt rendabel. Als laatste en 
beste type printer komen we 
bij de laser printer. Deze 
printer drukt een hele pagina 
in een keer af. Voordelen 
zijn, de goede afdrukkwali- 
teit (ook grafisch) en het wei¬ 
nige geluidsoverlast. Groot 
nadeel is de prijs die u voor 
een laser printer moet beta¬ 
len. 

Voor het grafische werk kan 
men kiezen tussen een plotter 
en een printer. Plotters lenen 


zich het best voor het afdruk¬ 
ken van vektorgrafieken. 
Dotmatrix printers zijn ge¬ 
schikt als het alleen om bit¬ 
map grafieken gaat. 

Netvoeding 

Uitleg is eigenlijk niet nodig 
want iedereen kent het ge¬ 
bruik van deze connector 
wel. The Amiga needs some 
power dus een aansluiting op 
deze connector ist immer 
noodzakelijk. 

RGB en 

monochrome 

aansluiting 

Deze connectoren zijn voor 
de aansluiting van een moni¬ 
tor of televisie. Gebruikt men 
een RGB-monitor dan komt 
deze aan de RGB-connector. 
Bij een monochrome monitor 
zal de aansluiting plaatsvin¬ 
den op de monochrome con¬ 
nector. RGB-monitoren zijn 
verkrijgbaar in digitale-en 
analoge uitvoering. De mees¬ 
te analoge monitoren hebben 
een weergave van 4096 kleu¬ 
ren met een resolutie die 640 
x 512 pixels omvat. De digi¬ 
tale monitoren kunnen 
meestal maar 16 kleuren aan. 
Een analoge monitor is dus 
dan de beste keuze. Monoch¬ 
rome monitoren werken maar 
met één kleur en zijn dus niet 
echt geschikt voor een ge¬ 
middelde AMIGA-gebrui- 
ker. De meeste RGB-monito¬ 
ren beschikken over een 
knop om over te schakelen 
van kleur naar monochrome 
weergave. Dus wie toch op 
een monochroom beeld¬ 
scherm wil werken kan dus 
ook op een RGB monitor uit 
de voeten. De T.V. is ook 
aansluitbaar maar dan wel 
doormiddel van een modula¬ 
tor (A521) die op de RGB- 
connector wordt aangesloten. 
Echt handig is deze oplossing 
niet omdat het beeld niet de 
perfecte weergave van een 
RGB-monitor kan evenaren 
en u meestal niet de enige 
bent die gebruik maakt van 
de televisie. 

Verder is er nog meer rand¬ 
apparatuur die u op de con¬ 
nectoren kunt aansluiten. 


Hierop zullen we deze keer 
niet verder op ingaan. 

Tot slot 

Reacties, vragen, en ideeën 
zijn altijd welkom. Dus wilt u 
dat wij iets gaan behandelen 
wat in deze beginners rubriek 
past stuur het ons op onder 
vermelding van AMIGA 
STARTERS. De volgende 
keer zullen we de draad weer 
verder oppikken met prefe- 
rences. See you then! 

Johan & Johan 




